「stick」での当たり確率
Monty Hall のゲーム番組をシミュレーションするコードを書きましょう。この演習では、出場者は毎回ドア1を選び、常に「stick（最初の選択を変えない）」とし、ゲームを10000回繰り返したときの勝利の相対頻度を求めます。
まずは1回分の処理だけを書きます。次に、これを for ループに組み込み、前に学んだカウンターの考え方を使って処理を繰り返し、真の当たり確率の推定値をシミュレーションで得ます。
この演習はコースの一部です
Rで解く確率パズル
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
set.seed(1)
doors <- c(1,2,3)
# Randomly select one of the doors to have the prize
prize <- sample(x = ___, size = ___)
initial_choice <- 1
# Check if the initial choice equals the prize
if(___){
print("The initial choice was correct!")
}
print(prize)