"switch" を使った勝率
今回は、解答者が最初にドア#1を選び、ヤギのドアが公開されたあとで残りのドアにスイッチする状況をコードで表現します。
同様に、まずは1回だけの試行を書くところから始めます。続いて、それを for ループに組み込み、プロセスを繰り返し実行して、真の勝率の推定値をシミュレーションで求めます。
この演習はコースの一部です
Rで解く確率パズル
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
set.seed(1)
prize <- sample(doors,1)
initial_choice <- 1
# Use the reveal_door function to do the reveal
reveal <- reveal_door(___, ___, ___)
# Switch to the remaining door
final_choice <- ___
print(final_choice)
# Check whether the final choice equals the prize
if(___){
print("The final choice is correct!")
}