Nothing
rmnorm <- function (n = 1, mean = rep(0, d), varcov)
{
varcov <- as.matrix(varcov)
d <- ncol(varcov)
z <- matrix(rnorm(n * d), n, d) %*% chol(varcov)
y <- t(mean + t(z))
y
}
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.