Data Management HW W2 EX05

Exercises-05

定義骰子

dice.sum <- function(n.dice){
  dice <- sample(1:6, size = n.dice, replace = TRUE)
  return(sum(dice))
}

投擲999次

dice <- replicate(999, dice.sum(3))

三骰子之總和可能

dice.dice <- data.frame(table(dice))
dice.dice$dice

##  [1] 3  4  5  6  7  8  9  10 11 12 13 14 15 16 17 18
## Levels: 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18