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