Nothing
sample_R <-
function (e, priR) {
S <- t(e) %*% e + priR[2] * diag(ncol(e))
v <- priR[1]
df <- v:(v - ncol(S) + 1)
sig <- solve(rwish(solve(S), df))
cov2cor(sig)
}
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.