用模拟更新
我们观察到一枚硬币在 20 次投掷中出现了 11 次正面。它要么是公平硬币（正面概率 50%），要么是偏置硬币（正面概率 75%）。这枚硬币是公平的可能性有多大？请通过分别模拟 50,000 枚公平硬币和 50,000 枚偏置硬币来回答。
本练习是课程的一部分
R 中的概率基础
练习说明
- 分别模拟从公平硬币（正面概率 50%）和偏置硬币（正面概率 75%）各投掷 20 次的 50,000 个样本。分别将结果保存为
fair和biased。 - 找出公平硬币中正好有 11/20 次为正面的个数，以及偏置硬币中正好有 11/20 次为正面的个数。分别保存为
fair_11和biased_11。 - 计算在所有正好出现 11 次正面的样本中，属于公平硬币的比例——这就是在观察到 11/20 后硬币为公平的后验概率。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Simulate 50000 cases of flipping 20 coins from fair and from biased
fair <-
biased <-
# How many fair cases, and how many biased, led to exactly 11 heads?
fair_11 <-
biased_11 <-
# Find the fraction of fair coins that are 11 out of all coins that were 11