## Not run:
# 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)
#
# eststo(model1,store="tab2")
# eststo(model2,store="tab2")
# eststo(model3,store="tab2")
# ## End(Not run)
Run the code above in your browser using DataLab