sample_R <-
function (e, priR) {
S <- t(e) %*% e + priR[2] * diag(ncol(e))
v <- priR[1]
sig <- solve(rwish(solve(S), v))
cov2cor(sig)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.