# NOT RUN {
## Sample a single covariance.
draw1 <- cvPost(3, matrix(c(1,.3,.3,1),2,2))
## Sample 3 covariances
set.seed(42)
draw3 <- cvPost(3, matrix(c(1,.3,.3,1),2,2), n=3)
## Sample 3 covariances, but return the cholesky decomposition
set.seed(42)
draw3c <- cvPost(3, matrix(c(1,.3,.3,1),2,2), n=3, returnChol=TRUE)
# }
Run the code above in your browser using DataLab