if (FALSE) {
# Load big5 dataset:
data(big5)
data(big5groups)
big5efa <- factanal(big5,factors=5,rotation="promax",scores="regression")
big5loadings <- loadings(big5efa)
qgraph.loadings(big5loadings,groups=big5groups,minimum=0.2,
cut=0.4,vsize=c(1.5,15),borders=FALSE,vTrans=200,
model = "reflective", resid = big5efa$uniquenesses)
# Tree layout:
qgraph.loadings(big5loadings,groups=big5groups,minimum=0.2,
cut=0.4,vsize=c(1.5,15),borders=FALSE,vTrans=200,
layout="tree",width=20,model = "reflective",
resid = big5efa$uniquenesses)
}
Run the code above in your browser using DataLab