8.5 Lineup

Hacemos 19 simulaciones bajo el modelo \(N(\mu, \sigma^2)\) ¿Captura este modelo las características observadas?

library(nullabor)
#> Error in library(nullabor): there is no package called 'nullabor'

sing_null <- lineup(null_dist('height', dist = 'normal', 
    params = list(mean = 171, sd = 10)), n = 20, singer_g)
#> Error in lineup(null_dist("height", dist = "normal", params = list(mean = 171, : could not find function "lineup"

ggplot(sing_null, aes(x = gender, y = height)) +
    facet_wrap(~ .sample) +
    geom_jitter(position = position_jitter(width = 0.1, height = 1), 
        size = 0.8, alpha = 0.5)
#> Error in ggplot(sing_null, aes(x = gender, y = height)): object 'sing_null' not found

El poder distinguir los datos provee evidencia estadística rigurosa de que hay diferencia.