# \donttest{
# data
Y <- bfi[,1:10]
# fit model
fit <- explore(Y, iter = 250,
progress = FALSE)
# edge set
E <- select(fit,
alternative = "exhaustive")
plot(summary(E))
# }
Run the code above in your browser using DataLab