模擬 10000 場遊戲
現在來模擬 10000 場遊戲,並回答:既然 2 與 12 出現的機率同樣很低,那在一場遊戲中,2 或 12 被擲出超過兩次的情況有多常見?
基本策略會建議避免落在 2 或 12 的位置,因為它們的機率最低。這在理論上沒錯,不過我們要進一步觀察:如果實際上它們出現得比預期更頻繁,這應該有多令人意外。前面練習中的 roll_dice 函式已經為你預先載入。
本練習屬於課程
R 的機率謎題
練習說明
- 使用
replicate函式擲兩顆骰子 60 次。 - 使用複合條件檢查是否有 2 或 12 被擲出超過兩次。
- 印出你對於在一場遊戲中擲出 2 或 12 超過兩次的機率估計值。
動手互動練習
試著完成這個範例程式碼,體驗一下這個練習。
set.seed(1)
counter <- 0
for(i in 1:10000){
# Roll two dice 60 times
rolls <- ___
# Check whether 2 or 12 was rolled more than twice
if(___){
counter <- counter + 1
}
}
# Print the answer
print(___)