/independence.r
Created Nov 7, 2012
| 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) | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment