Combine function

Report estimates across different models

Combine(x, ...)

Arguments

• x: list of model objects
• ...: additional arguments to lower-level functions

Examples

data(serotonin)
m1 <- lm(cau ~ age*gene1 + age*gene2,data=serotonin)
m2 <- lm(cau ~ age + gene1,data=serotonin)
m3 <- lm(cau ~ age*gene2,data=serotonin)

Combine(list(A=m1,B=m2,C=m3),fun=function(x)
     c("_____"="",R2=" "%++%format(summary(x)$r.squared,digits=2)))

Author(s)

Klaus K. Holst