用 prop_model 模拟抛硬币

函数 prop_model 已加载到您的工作空间。它实现了一个贝叶斯模型，并假设：

• data 是由 1 和 0 表示的成功与失败向量。
• 成功的真实底层比例是未知的。
• 在看到数据之前，任何成功比例都是等可能的。

假设您刚刚抛了 4 次硬币，结果依次为：正面、反面、反面、正面。若将正面记为成功，反面记为失败，下面的 R 代码会用这组数据运行 prop_model

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