Star 0
Fork 0

cdesante/independence.r
Created Nov 7, 2012

Joint Probability Example

Raw

independence.r

      
           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

You can't perform that action at this time.