> anova_table <- Anova(model, type = "III") > library(report) > report(anova_table) Error in `[[<-.data.frame`(`*tmp*`, "Mean_Square", value = numeric(0)) : Ersetzung hat 0 Zeilen, Daten haben 3

r
> anova_table <- Anova(model, type = "III")
> library(ez)
> ezANOVA(model)
$ANOVA
          Effect DFn DFd          F           p p<.05        ges
1   (Intercept)   1   6 563.547681 0.000000e+00     * 0.9137616
2        Group2   2  12   1.763823 1.484842e-01       0.0322126
3 Group2:Group3   2  12   0.064462 9.308931e-01       0.0012488
4        Group3   2  12   0.066804 9.057730e-01       0.0012984
5  Residuals     18  96         

$`Sphericity Corrections`
       GGe    HF eps
1 1.00000 0.924   
2 1.02369 0.923 0.01
3 1.02444 0.922 0.01
4 1.02469 0