style.apa.summary.aovlist: Formats the summary of a Analysis of Variance Model
In pubprint: Printing Results of Statistical Computing in a Publishable Way

Description Usage Arguments Details Value See Also Examples

This style functions takes the summary of a Analysis of Variance Model from aov or manova and transforms it into a formatted character vector.

1	style.apa.summary.aovlist(x, response = 1L, effect = 1L)

`x`	a list. First item must be the summary of a Analysis of Variance Model from `aov` or `manova`. All other list items will be ignored.
`response`	a integer. This argument selects the desired response variable in a `aovlist`. Default is appropriate for `aov` class.
`effect`	a integer, specifying the effect that should be printed.

Please note that this is a internal style function. It is called from pprint and not exported to user namespace. Usually pprint determines the correct style function automatically, but you can define the style function by using the format argument of pprint (pass the name of this function without style.apa. prefix). Additionally you can pass the arguments listed in this documentation to pprint.

Argument x of this function expects a list. Be aware that you do not have to pass a list to pprint or pull.pubprint – these functions will convert your arguments. This is only necessary if you want to pass additionally information to the internal style functions (see vignette for examples).

character vector with a formatted character vector.

aov, manova

Other APA.style.functions: style.apa.anova, style.apa.bartlett, style.apa.character, style.apa.chisq, style.apa.cor.test, style.apa.df, style.apa.fisher, style.apa.ks, style.apa.numeric, style.apa.p.value, style.apa.shapiro, style.apa.summary.lm.beta.coeff, style.apa.summary.lm.coeff, style.apa.summary.lm.equation, style.apa.summary.lm.model, style.apa.t.test

op <- options(contrasts = c("contr.helmert", "contr.poly"))

# AOV
( npk.aov <- aov(yield ~ block + N*P*K, npk) )
summary(npk.aov)
pprint(summary(npk.aov),
       format = "summary.aov")

# MANOVA
npk2 <- within(npk, foo <- rnorm(24))
( npk2.aov <- manova(cbind(yield, foo) ~ block + N*P*K, npk2) )
summary.aov(npk2.aov)
pprint(summary.aov(npk2.aov),
       format = "summary.aovlist")

 options(op) # reset to previous