cdesante / independence.r

Created November 07, 2012


    
    View independence.r 
  
  
      independence.r
    
    
        Raw
      
    
    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)