Geobserveerde statistiek en p-waarde

Je hebt nu een nulverdeling. Om een p-waarde te krijgen en het bewijs tegen de nulhypothese te beoordelen, moet je het verschil in proporties berekenen dat is geobserveerd in de late_shipments-steekproef.

late_shipments is beschikbaar; dplyr, infer en ggplot2 zijn geladen.

Deze oefening maakt deel uit van de cursus

Hypothesis Testing in R

Cursus bekijken

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

null_distn <- late_shipments %>% 
  specify(
    late ~ freight_cost_group, 
    success = "Yes"
  ) %>% 
  hypothesize(null = "independence") %>% 
  generate(reps = 2000, type = "permute") %>% 
  calculate(
    stat = "diff in props", 
    order = c("expensive", "reasonable")
  )

# Copy, paste, and modify the pipeline to get the observed statistic
obs_stat <- ___









# See the result
obs_stat

Code bewerken en uitvoeren