public
cdesante / independence.r
Created

Joint Probability Example

  • Download Gist
independence.r
R
File suppressed. Click to show.
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.