# NOT RUN {
# load sample data
data(efc)
# fit linear model
fit <- aov(
c12hour ~ as.factor(e42dep) + as.factor(c172code) + c160age,
data = efc
)
eta_sq(fit)
omega_sq(fit)
eta_sq(fit, partial = TRUE)
# CI for eta-squared requires apaTables packages
# }
# NOT RUN {
if (requireNamespace("apaTables", quietly = TRUE)) {
eta_sq(fit, partial = TRUE, ci.lvl = .8)
}
# }
# NOT RUN {
anova_stats(car::Anova(fit, type = 2))
# }
Run the code above in your browser using DataLab