# 1. Raw-argument interface. Bargman's (1970) example, also used in
# Venables (1975), Fleishman (1980), and Steiger (2004): a 5-group
# one-way ANOVA with 11 subjects per group, observed F = 11.221.
ci_omega_squared(F_value = 11.221, df_effect = 4, df_error = 50, N = 55)
# Same example with a 90% confidence interval.
ci_omega_squared(
F_value = 11.221, df_effect = 4, df_error = 50, N = 55,
conf_level = 0.90
)
# 2. One way ANOVA from a fitted model: mean IQ gain differs across
# the six grades of the pygmalion data (N = 310).
fit_one <- aov(iq_gain ~ factor(grade), data = pygmalion)
ci_omega_squared(fit_one)
# 3. Two-factor ANOVA: partial omega squared per effect for the
# manipulated expectancy treatment and the measured grade
# classification (pygmalion data, N = 310). The treatment by
# grade interaction is weak here (F = 1.19), so the additive
# model is used.
fit_additive <- aov(iq_8 ~ treatment + factor(grade), data = pygmalion)
ci_omega_squared(fit_additive)
Run the code above in your browser using DataLab