par(mfrow = c(1, 2), mar = c(4, 4, 3, 1))
boxplot(list(A = eng_a, B = eng_b), main = "enge Streuung",
ylab = "Messwert", ylim = c(10, 15.2))
boxplot(list(A = weit_a, B = weit_b), main = "weite Streuung",
ylab = "Messwert", ylim = c(10, 15.2))
par(mfrow = c(1, 1))
effekt(eng_a, eng_b) differenz gepoolte_sd d hedges_g unten oben
0.5000 0.2812 1.7779 1.7166 0.8328 2.7230
effekt(weit_a, weit_b) differenz gepoolte_sd d hedges_g unten oben
0.5000 1.4513 0.3445 0.3326 -0.4616 1.1506
t.test(eng_b, eng_a, var.equal = TRUE)$p.value[1] 0.0002535206
t.test(weit_b, weit_a, var.equal = TRUE)$p.value[1] 0.407821

