# NOT RUN {
#estimate EGA
ega.wmt <- EGA(data = wmt2[,7:24])
#fit CFA model to EGA results
cfa.wmt <- CFA(ega.obj = ega.wmt, estimator = 'WLSMV', plot.CFA = TRUE, data = wmt2)
#additional fit measures
lavaan::fitMeasures(cfa.wmt$fit, fit.measures = "all")
#estimate EGA
ega.intel <- EGA(data = intelligenceBattery[,8:66])
#fit CFA model to EGA results
cfa.intel <- CFA(ega.obj = ega.intel, estimator = 'WLSMV', plot.CFA = TRUE,
data = intelligenceBattery[,8:66])
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab