pubprint (version 0.2.1)

style.apa.summary.aovlist: Formats the summary of a Analysis of Variance Model

Description

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

Usage

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

Arguments

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.

Value

character vector with a formatted character vector.

Details

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).

See Also

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

Examples

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