# \donttest{
# note: iter = 250 for demonstrative purposes
Y <- bfi[,1:5]
# estimate
fit <- estimate(Y, iter = 250,
progress = FALSE)
# select graph
E <- select(fit)
# extract weighted adj matrix
weighted_adj_mat(E)
# }
Run the code above in your browser using DataLab