Nothing
rmt=function (n = 1, mean = rep(0, d), S, df = Inf)
{
d <- if (is.matrix(S))
ncol(S)
else 1
if (df == Inf)
x <- 1
else x <- rchisq(n, df)/df
z <- rmnorm(n, rep(0, d), S)
y <- t(mean + t(z/sqrt(x)))
return(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.