Nothing
"rlmomco" <-
function(n,para) {
if(! are.par.valid(para)) return()
f <- runif(n)
x <- par2qua(f,para,paracheck=FALSE)
return(x)
}
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.