# NOT RUN {
# Analytic = TRUE
# p = 5
Y <- BGGM::bfi[,1:5]
# analytic solution
fit_analytic <- estimate(Y, analytic = TRUE)
# select E
E <- select(fit_analytic, ci_width = 0.95)
# non-zero partial correlations
E$partials_non_zero
# adjacency matrix
E$adjacency_non_zero
# }
Run the code above in your browser using DataLab