Соответствуют ли данные генеральной совокупности?

Напомним, что наблюдаемая разница (то есть разница долей в наборе данных 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(___ <= ___))

Редактировать и запускать код