# NOT RUN {
# Load data:
library("psych")
data(bfi)
# Compute polychoric correlations:
corMat <- cor_auto(bfi[,1:25])
# Glasso network:
g2 <- qgraph(corMat, cut = 0, graph = "glasso", sampleSize = nrow(bfi),
threshold = TRUE)
# Flow from A2:
flow(g2, "A2", horizontal = TRUE)
# }
Run the code above in your browser using DataLab