m1 <- lm(mpg ~ qsec * hp, data = mtcars)
APAStyler(modelTest(m1))
APAStyler(modelTest(m1),
format = list(
FixedEffects = "%s, %s\n(%s, %s)",
EffectSizes = "Cohen's f2 = %s (%s)"),
pcontrol = list(digits = 4,
stars = FALSE, includeP = TRUE,
includeSign = TRUE,
dropLeadingZero = TRUE))
## clean up
rm(m1)
Run the code above in your browser using DataLab