# NOT RUN {
# }
# NOT RUN {
model <- aov(mpg ~ factor(am) * factor(cyl), data = mtcars)
es <- eta_squared(model)
equivalence_test(es, range = 0.15)
ds <- t_to_d(
t = c(0.45, -0.65, 7, -2.2, 2.25),
df_error = c(675, 525, 2000, 900, 1875),
ci = 0.9
) # TOST approach
equivalence_test(ds, range = 0.2)
# Can also plot
if (require(see)) plot(equivalence_test(ds, range = 0.2))
if (require(see)) plot(equivalence_test(ds, range = 0.2, rule = "cet"))
if (require(see)) plot(equivalence_test(ds, range = 0.2, rule = "bayes"))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab