シミュレーションで更新する
表が出る確率が50%の公平なコイン、または表が出る確率が75%の偏ったコインのどちらかから、20回投げて11回表が出ました。コインが公平である可能性はどのくらいでしょうか？これに答えるため、50,000個の公平なコインと50,000個の偏ったコインをシミュレーションしましょう。
この演習はコースの一部です
Rで学ぶ確率の基礎
演習の手順
- 公平なコイン（表が出る確率50%）と偏ったコイン（表が出る確率75%）について、それぞれ20回投げる試行を50,000件ずつシミュレーションします。これらをそれぞれ
fairとbiasedに保存します。 - 公平なコインでちょうど11/20回が表になった数、偏ったコインでちょうど11/20回が表になった数を求めます。これらをそれぞれ
fair_11とbiased_11に保存します。 - 20回中11回表になったすべてのコインのうち、公平なコインの割合を求めます。これは、11/20の結果が得られたときのコインが公平であるという事後確率です。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Simulate 50000 cases of flipping 20 coins from fair and from biased
fair <-
biased <-
# How many fair cases, and how many biased, led to exactly 11 heads?
fair_11 <-
biased_11 <-
# Find the fraction of fair coins that are 11 out of all coins that were 11