パスラインベットで勝つ確率
ここでは、以前に作成した関数を使ってCrapsのゲームを1万回シミュレーションし、パスラインベットで勝つ確率を推定します。以前に作成した roll_dice と evaluate_first_roll() 関数は、この演習で使えるように事前に読み込まれています。evaluate_first_roll() 関数は、シューターの最初のロールを入力として受け取り、その後に何が起こるべきかを判定することを思い出してください。
この演習はコースの一部です
Rで解く確率パズル
演習の手順
- シューターの最初のロールとして、2つのサイコロを振るシミュレーションを行ってください。
- 最初のロールの値を使って、パスラインベットが勝ちか負けかを判定し、その結果を
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