5作業

3顆骰子，1-6重複抽

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

抽100次

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

各種可能

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

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