WEEK2HWEX05

定義骰子

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

以三個骰子可能出現的組合216個狀況重複擲骰，重複1000次。

dice_3 <- replicate(1000, dice.sum(3))
plot(table(dice_3),ylab = 'Frequency', main = 'Three dice rolling')

END