特定の5年間について確率をシミュレーションする
では、前の問題で作成した check_for_five 関数を使い、5年間の試行を10000回シミュレーションして、Ronnie Bardah が達成した5年連続キャッシュがどれくらい稀かを見てみましょう。ここでも、合計6000人のプレイヤーがいて、そのうち毎年10%、つまり600人がキャッシュするものと仮定します。
この演習はコースの一部です
Rで解く確率パズル
演習の手順
- 5年間それぞれで誰がキャッシュしたかの結果を行列にまとめます。プレイヤーは合計6000人で、そのうち600人がキャッシュするという前提を忘れないでください。
- いずれかのプレイヤーが5年すべてでキャッシュしたかどうかを判定する条件を埋めてください。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
players <- c(1:6000)
count <- 0
for(i in 1:10000){
# Create matrix of cashing players
cashes <- ___
# Check for five time winners
if(___){
count <- count + 1
}
}
print(count/10000)