# routines to load and prep common datasets
# prgeng data
# better version in regtools package
getPE1 <- function()
{
data(prgeng)
pe <- prgeng[,c(1,3,7:9)]
# dummies for MS, PhD
pe$ms <- as.integer(pe$educ == 14)
pe$phd <- as.integer(pe$educ == 16)
pe$educ <- NULL
pe <<- pe
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.