Nothing
`extract.pars` <-
function(par.file = "parameters.RData", root.dir="."){
load(paste(root.dir, "/", par.file, sep=""))
ret <- list()
for(i in setdiff(ls(),c("i","ret"))){
ret[[i]] <- get(i)
}
ret
}
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.