public
Created

Joint Probability Example

  • Download Gist
independence.r
R
1 2 3 4 5 6 7 8 9 10
Coin <- c()
Die <- c()
 
for (i in 1:1000) {
Coin[i] <- sample(c("Heads", "Tails"), 1)
Die[i] <- sample(c(1,2,3,4,5,6), 1)
}
table(Coin, Die)

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.