pubprint (version 0.2.1)

style.apa.summary.lm.beta.coeff: Formats the summary of a Linear Model Fit (standardized coefficients)

Description

This style functions takes the summary of a linear model fit from lm.beta and transforms it into a formatted character vector. It prints coefficient statistics.

Usage

style.apa.summary.lm.beta.coeff(x, coeff = 1L, standardized = TRUE)

Arguments

x

a list. First item must be the summary of a linear model fit from lm.beta. All other list items will be ignored.

coeff

a integer, specifying the desired coefficient.

standardized

a logical, indicating whether the standardized or unstandardized coefficients are printed. Intercept will always be unstandardized.

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

lm.beta. See style.apa.summary.lm.coeff for models of lm as well.

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.aovlist, style.apa.summary.lm.coeff, style.apa.summary.lm.equation, style.apa.summary.lm.model, style.apa.t.test

Examples

ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
group <- gl(2, 10, 20, labels = c("Ctl","Trt"))
weight <- c(ctl, trt)
# requires lm.beta
if (requireNamespace("lm.beta", quietly=TRUE))
{
    lm.D9 <- lm.beta::lm.beta(lm(weight ~ group))
    pprint(summary(lm.D9),
           format = "summary.lm.beta.coeff",
           coeff = 2L)
}