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