Nothing
variance.par <- function(penden.env) {
return(my.positive.definite.solve(get("Derv2.pen",penden.env))%*%get("Derv2.cal",penden.env)%*%my.positive.definite.solve(get("Derv2.pen",penden.env)))
}
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.