B <- read.table("../data/bwght.tab",header=TRUE)
attach(B)
b.cigs.motheduc <- lm(bwght ~ cigs + motheduc)
b.cigs.faminc <- lm(bwght ~ cigs + faminc)
b.cigs.motheduc.faminc <- lm(bwght ~ cigs + motheduc + faminc)
eststo(b.cigs.motheduc)
eststo(b.cigs.faminc)
eststo(b.cigs.motheduc.faminc)
Run the code above in your browser using DataLab