Pass line 注項的獲勝機率
現在，你要使用先前建立的函式，模擬 10,000 局 Craps，以估計在 pass line 注項中獲勝的機率。你之前寫好的 roll_dice 與 evaluate_first_roll() 已經預先載入，供本練習使用。回想一下，evaluate_first_roll() 會接收射手第一次擲骰的點數作為輸入，並決定接下來該怎麼進行。
本練習屬於課程
R 的機率謎題
練習說明
- 先模擬射手的第一次擲骰（兩顆骰子）。
- 根據第一次擲骰的點數，判定 pass line 注項是贏或輸，並將結果存入
won向量。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
set.seed(1)
won <- rep(NA, 10000)
for(i in 1:10000){
# Shooter's first roll
roll <- ___
# Determine result and store it
won[_] <- ___
}
sum(won)/10000