Nothing
rwish <-
function (S0,nu){
sS0 <- chol(S0)
Z <- matrix(rnorm(nu * dim(S0)[1]), nu, dim(S0)[1]) %*% sS0
t(Z) %*% Z
}
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.