3種類のコインでの更新

コインが「公平」か「偏っている」かの2択ではなく、3つの可能性があるとします。つまり、公平（表が50%）、低（表が25%）、高（表が75%）です。事前には、公平である確率が80%、低に偏る確率が10%、高に偏る確率が10%です。

20回中14回が表でした。コインが公平である確率はいくつですか？

rbinom() 関数を使って、公平なコインから8万回、高いコインから1万回、低いコインから1万回のシミュレーションを行い、各ドローは20回の投げを含めます。結果をそれぞれ flips_fair、flips_high、flips_low に保存します。
それぞれの種類について、結果が14になったコインの数を数えます。結果をそれぞれ fair_14、high_14、low_14 に保存します。
14になったコイン全体の中で公平なコインの数を割り算して、コインが公平だった事後確率を求めます。