Nothing
plie.VM <-
function(m,kappa){
if (length(kappa)>1) {par = c(m,log(kappa[1]),kappa[2:length(kappa)])}
else {par = c(m,log(kappa[1]))}
}
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.