Nothing
\dontrun{
# read in the example data (generated, not real student data)
sdf <- readNAEP(path=system.file("extdata/data", "M36NT2PM.dat", package = "NAEPprimer"))
# search variables in the sdf
levelsSDF(varnames="pared", data=sdf)
# search multiple variables
levelsSDF(varnames=c("pared","ell3"), data=sdf)
# search multiple variables in a light.edsurvey.data.frame with recodes
df2 <- getData(data=sdf, varnames=c("dsex", "t088301"),
recode=list(t088301=list(from=c("Yes, available","Yes, I have access"),
to=c("Yes")),
t088301=list(from=c("No, have no access"),
to=c("No"))),
addAttributes=TRUE)
levelsSDF(varnames=c("dsex","t088301"), data=df2)
}
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.