Nothing
rmvt <- function(n, SqrtSigma, df){
stopifnot(is.numeric(df), length(df) == 1, df > 0,
isInteger(n), n > 0, is.numeric(SqrtSigma), is.matrix(SqrtSigma))
t(t(rmvnorm(reps = n, SqrtSigma = SqrtSigma))/sqrt(rchisq(n, df)/df))
}
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.