# NOT RUN {
if (requireNamespace("effectsize", quietly = TRUE)) {
df <- iris
df$Sepal.Big <- ifelse(df$Sepal.Width >= 3, "Yes", "No")
model <- aov(Sepal.Length ~ Sepal.Big, data = df)
model_parameters(
model,
omega_squared = "partial",
eta_squared = "partial",
epsilon_squared = "partial"
)
model_parameters(
model,
omega_squared = "partial",
eta_squared = "partial",
ci = .9
)
model <- anova(lm(Sepal.Length ~ Sepal.Big, data = df))
model_parameters(model)
model_parameters(
model,
omega_squared = "partial",
eta_squared = "partial",
epsilon_squared = "partial"
)
model <- aov(Sepal.Length ~ Sepal.Big + Error(Species), data = df)
model_parameters(model)
# }
# NOT RUN {
if (require("lme4")) {
mm <- lmer(Sepal.Length ~ Sepal.Big + Petal.Width + (1 | Species),
data = df
)
model <- anova(mm)
# simple parameters table
model_parameters(model)
# parameters table including effect sizes
model_parameters(
model,
eta_squared = "partial",
ci = .9,
df_error = dof_satterthwaite(mm)[2:3]
)
}
# }
# NOT RUN {
}
# }
Run the code above in your browser using DataLab