Provin datele din populație?

Amintește-ți că diferența observată (adică diferența dintre proporții în setul de date homes, reprezentată prin linia verticală roșie) a fost de aproximativ -0,0078, valoare care pare să se situeze sub cea mai mare parte a densității diferențelor permutate aleatoriu. Este important să știi, însă, dacă vreuna dintre diferențele permutate aleatoriu a fost la fel de extremă ca diferența observată.

În acest exercițiu, vei recrea această diagramă cu puncte ca diagramă de densitate și vei număra câte diferențe permutate s-au aflat la stânga diferenței observate.

Acest exercițiu face parte din cursul

Bazele inferenței în R

Vezi cursul

Instrucțiuni pentru exercițiu

Setul de date homeown_perm este disponibil în spațiul tău de lucru.

Folosind geom_density(), reprezintă grafic diferențele permutate.
Adaugă o linie verticală roșie cu geom_vline() în punctul în care se află diferența observată. diff_orig este disponibil în spațiul tău de lucru și reprezintă valoarea inițială a statisticii diferenței.
Numără câte diferențe permutate au fost mai mici sau egale cu diferența observată.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

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

Editează și rulează codul