# NOT RUN {
# p = 10
Y <- BGGM::bfi[,1:10]
# sample posterior
fit <- explore(Y, iter = 500)
# select E
E <- select(fit, BF_cut = 3)
# summarize
summary(E)
# non-zero edges
E$partials_non_zero
# adjacency matrix
E$Adj_10
# null adjacency matrix
E$Adj_01
# }
Run the code above in your browser using DataLab