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
return(colMeans(b) + t(chol(d))%*%matrix(rnorm(env$gNIV),nrow=env$gNIV,ncol=1)/SQNP)
}
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.