Nothing
\dontrun{
param <- NAEPirtparams::parameters
param8M2005 <- param[param$level == 8 & param$subject == 'Mathematics' & param$year == 2005, ]
head(param8M2005)
source level levelType NAEPid ... subtest subject year a b c ...
7657 website 8 grade M066201 ... algebra Mathematics 2005 0.77 -1.75 0.07 ...
7658 website 8 grade M067401 ... algebra Mathematics 2005 0.92 1.28 0.18 ...
7659 website 8 grade M086101 ... algebra Mathematics 2005 0.63 0.32 0.11 ...
7660 website 8 grade M047701 ... algebra Mathematics 2005 1.01 1.29 0.26 ...
7661 website 8 grade M067301 ... algebra Mathematics 2005 1.02 -0.03 0.16 ...
7662 website 8 grade M067701 ... algebra Mathematics 2005 0.78 -2.01 0.06 ...
}
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.