用 prop_model 模擬擲硬幣

函式 prop_model 已載入到你的工作環境。它實作了一個貝葉斯模型，並假設：

• data 是由 1 和 0 構成的成功與失敗向量。
• 成功的真實比例是未知的。
• 在看到任何資料之前，任何成功比例都同樣可能。

假設你剛擲了 4 次硬幣，結果依序為「正面、反面、反面、正面」。如果你把正面編碼為成功、反面編碼為失敗，下面這段 R 程式碼會以這筆資料執行 prop_model：

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