EGA to estimate the number of dimensions of an instrument using EGA
and CFA to verify the fit of the structure suggested by EGA using confirmatory factor analysis.
# NOT RUN {#estimate EGAega.wmt <- EGA(data = wmt2[,7:24], plot.EGA = TRUE)
#summary of EGA resultssummary(ega.wmt)
#plot EGA networkplot(ega.wmt, vsize = 6)
# }