if (FALSE) {
# Load data:
library("psych")
data(bfi)
# Compute Spearman correlations:
corMat <- cor(bfi[,1:25], method = "spearman", use = "pairwise.complete.obs")
# 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