Nothing
"modelSetRN" <-
function(state)
# Set the seed of random number generator
{
if(!state %in% 1:14)
stop("state must be an integer from 1 to 14")
state <- as.integer(state)
command <- paste("BugsEmbed.SetRNGuard; BugsEmbed.SetRNState(", state, ")" )
invisible(.CmdInterpreter(command))
}
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.