Nothing
.First.lib <- function(libname, pkgname) {
ethnicityLevels <<- c('HispanicAnyRace', 'AmericanIndianOrAlaskaNative', 'Asian', 'BlackOrAfricanAmerican', 'NativeHawaiianOrPacificIslander', 'White', 'TwoOrMoreRaces', 'NonresidentAlien', 'RaceEthnicityUnknown')
genderLevels <<- c('Male', 'Female')
ipedsDataUrl <<- 'http://nces.ed.gov/ipeds/datacenter/data/'
data(surveys)
}
.Last.lib <- function(libname, pkgname) {
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.