# NOT RUN {
#estimate EGA
ega.wmt <- EGA(data = wmt2[,7:24], plot.EGA = TRUE)
#esimtate CFA
cfa.wmt <- CFA(ega.obj = ega.wmt, estimator = 'WLSMV', plot.CFA = TRUE, data = wmt2)
#summary of CFA results
summary(cfa.wmt)
# }
Run the code above in your browser using DataLab