inst/CaseStudies/PrgEng/prgeng.R

data(prgeng)
pe <- prgeng
# dummies for MS, PhD
pe$ms <- as.integer(pe$educ == 14)
pe$phd <- as.integer(pe$educ == 16)
lmout <- lm(wageinc ~ age+sex+ms+phd,data=pe)
print(summary(lmout))
matloff/revisit documentation built on May 4, 2019, 4:23 p.m.