# NOT RUN {
# data
Y <- rsa[,-ncol(rsa)]
# fit model
fit_explore <- explore(Y, iter = 1000)
# select the graph (edge set E)
E <- select(fit_explore)
plot_adjacency(E$Adj_10, node_groups = BGGM:::rsa_labels)
# }
Run the code above in your browser using DataLab