Nothing
nextA = function(b, d, env) {
SQNP <- sqrt(env$gNP)
# draws from multivariate normals can be taken using
# draws = mu + l * eta where l*l' = d (l is the cholesky decomposition)
# accounting for non-diffuse priors
newDraw = colMeans(b) + t(chol(d)) %*% matrix(rnorm(env$gNIV), nrow = env$gNIV, ncol = 1)/SQNP
return(newDraw)
}
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.