prop_model を使ったコイン投げ

prop_model 関数はすでにワークスペースに読み込まれています。この関数は、以下の前提に基づくベイズモデルを実装しています。

• data は、成功を 1、失敗を 0 で表したベクトルです。
• 成功の割合（未知）が存在します。
• データで更新される前の段階では、成功割合のすべての値が等しく起こりうると仮定します。

コインを4回投げた結果が、表、裏、裏、表 だったとします。表 を成功、裏 を失敗としてコード化すると、次の R コードでこのデータを使って prop_model を実行できます。

data <- c(1, 0, 0, 1)
prop_model(data)