# NOT RUN {
contingency_table <- as.table(rbind(c(762, 327, 468), c(484, 239, 477), c(484, 239, 477)))
Xsq <- chisq.test(contingency_table)
effectsize(Xsq)
Ts <- t.test(1:10, y = c(7:20))
effectsize(Ts)
fit <- lm(mpg ~ factor(cyl) * wt + hp, data = mtcars)
effectsize(fit)
anova_table <- anova(fit)
effectsize(anova_table)
# }
Run the code above in your browser using DataLab