Vraag 7 Test: Voorwaarden (Leesopdracht)

De voorwaarde van normaliteit lijkt vrij goed voldaan te zijn. De punten liggen dicht rond de rechte bij de verbannen stokstaartjes. Bij de stokstaartjes die bleven is de afwijking al iets groter. We kunnen opnieuw eens vergelijken met gesimuleerde data onder de nulhypothese. De afwijkingen die we in onze qqplot zien lijken niet uitzonderlijk te zijn.

set.seed(1406)
nobs <- sum(stokstaartjes_wide$verbannen == 0)
n_simulations <- 9

data.frame(
  y = c(rnorm(nobs*n_simulations,
              mean = stokstaartjes_wide$verschil[stokstaartjes_wide$verbannen == 0],
              sd = sd(stokstaartjes_wide$verschil[stokstaartjes_wide$verbannen == 0])
             )
      ),
  label = rep(paste0("sim",1:n_simulations)),
              each = nobs) %>%
  ggplot(aes(sample = y)) +
  geom_qq() +
  geom_qq_line() +
  facet_wrap(~ label, scales = "fixed")+ 
  ylab("Sample Quantiles") +
  xlab("Theoretical Quantiles") +
  ggtitle("Simulatie QQ Plots Verbannen Groep") + 
  theme_bw()


data.frame(
  y = c(rnorm(nobs*n_simulations,
              mean = stokstaartjes_wide$verschil[stokstaartjes_wide$verbannen == 1],
              sd = sd(stokstaartjes_wide$verschil[stokstaartjes_wide$verbannen == 1])
             )
      ),
  label = rep(paste0("sim",1:n_simulations)),
              each = nobs) %>%
  ggplot(aes(sample = y)) +
  geom_qq() +
  geom_qq_line() +
  facet_wrap(~ label, scales = "fixed")+ 
  ylab("Sample Quantiles") +
  xlab("Theoretical Quantiles") +
  ggtitle("Simulatie QQ Plots Niet Verbannen Groep") + 
  theme_bw()