# NOT RUN {
# p = 20
Y <- BGGM::bfi[, 1:5]
# analytic approach (sample by setting analytic = FALSE)
fit_analytic <- estimate(Y, analytic = TRUE)
# select the graph (edge set E)
E <- select(fit_analytic, ci_width = 0.95)
# }
Run the code above in your browser using DataLab