Nothing
for (px in 1:sys.nframe()) {
if (exists("itemModelExplorer.default", envir=parent.frame(px))) {
itemModelExplorer.default <-
get("itemModelExplorer.default", envir=parent.frame(px))
break
}
}
if (!exists("itemModelExplorer.default")) {
itemModelExplorer.default <-
list(scaleValue = 1,
thresholds = c(.8, 1.6),
discrimination = 1.749)
}
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.