10000回のゲームをシミュレーションする
それでは、10000回のゲームをシミュレーションして、次の問いに答えましょう。2 と 12 は同じくらい出にくい数ですが、1つのゲームの中で 2 または 12 が2回より多く出るのはどのくらいの頻度でしょうか？
基本戦略では、2 と 12 のマスは最も起こりにくいため避けるべきだと示唆されます。理論的にはその通りですが、実際に期待より頻繁に出たとき、どれくらい意外だと言えるのかをここで確かめます。前の演習で使った roll_dice 関数はすでに読み込まれています。
この演習はコースの一部です
Rで解く確率パズル
演習の手順
replicate関数を使って、2つのサイコロを60回振ってください。- 複合条件を使って、2 または 12 が2回より多く出たかどうかを判定してください。
- 1つのゲームで 2 または 12 が2回より多く出る確率の推定値を出力してください。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
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(___)