Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Joint Probability Example
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