Czy dane pochodzą z populacji?

Przypomnij sobie, że obserwowana różnica (czyli różnica proporcji w zbiorze danych homes, zaznaczona czerwoną pionową linią) wyniosła około -0,0078 i wydaje się leżeć poniżej głównej masy gęstości przestawionych różnic. Ważne jest jednak, by sprawdzić, czy którakolwiek z losowo przestawionych różnic była równie skrajna jak różnica obserwowana.

W tym ćwiczeniu odtworzysz ten wykres punktowy jako wykres gęstości i policzysz, ile przestawionych różnic znalazło się po lewej stronie obserwowanej różnicy.

To ćwiczenie jest częścią kursu

Podstawy wnioskowania statystycznego w R

Zobacz kurs

Instrukcje do ćwiczenia

Zbiór danych homeown_perm jest dostępny w twoim środowisku pracy.

Używając geom_density(), narysuj wykres przestawionych różnic.
Dodaj pionową czerwoną linię za pomocą geom_vline() w miejscu, gdzie wypada obserwowana różnica. Zmienna diff_orig jest dostępna w twoim środowisku i reprezentuje oryginalną wartość statystyki różnicy.
Policz, ile przestawionych różnic było mniejszych lub równych obserwowanej różnicy.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

# 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(___ <= ___))

Edytuj i uruchom kod