他の結果に対する更新

前の演習では、コインが20回の投げで表が11回出たときに、そのコインが公平である確率を求めました。事前には、公平なコインと偏ったコインで可能性が同程度であると仮定しました。コードは次のような形でしたね。

probability_fair <- dbinom(11, 20, .5)
probability_biased <- dbinom(11, 20, .75)
probability_fair / (probability_fair + probability_biased)

ここでは dbinom() を用いる方法で、別の2つの結果が得られた場合の事後確率を求めます。