这些数据来自该总体吗？
回顾一下，观测到的差异（即 homes 数据集中比例之差，用红色竖线表示）大约为 -0.0078，似乎落在打乱差异的密度主体之下。不过，关键是要弄清是否有随机置换得到的差异与观测差异一样极端。
在本练习中，您将把这个点图重新绘制为密度图，并统计有多少次置换差异位于观测差异的左侧。
本练习是课程的一部分
R 推断基础
练习说明
homeown_perm 数据集已在您的工作区中。
- 使用
geom_density()绘制置换得到的差异。 - 使用
geom_vline()在观测差异所在位置添加一条红色竖线。diff_orig已在您的工作区中，表示该差异统计量的原始取值。 - 统计小于或等于观测差异的置换差异个数。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Plot permuted differences, diff_perm
ggplot(homeown_perm, aes(x = ___)) +
# Add a density layer
___() +
# Add a vline layer with intercept diff_orig
___(aes(xintercept = ___), color = "red")
# Compare permuted differences to observed difference
homeown_perm %>%
summarize(n_perm_le_obs = sum(___ <= ___))