# \donttest{
# data
Y <- bfi[,1:10]
# sample posterior
fit <- estimate(Y, iter = 100)
# select graph
sel <- select(fit)
# constrained posterior
post <- constrained_posterior(object = fit,
adj = sel$adj,
iter = 100,
progress = FALSE)
# }
Run the code above in your browser using DataLab