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))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.