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)))
Run the code above in your browser using DataLab