# Load data
wmt <- wmt2[,7:24]
if (FALSE) {
# Estimate EGA
ega.wmt <- EGA(data = wmt)
# EGA Methods section
methods.section(ega.wmt)
# Estimate standardized network loadings
wmt.loads <- net.loads(ega.wmt)$std
# EGA Methods section with network loadings
methods.section(ega.wmt, stats = "net.loads")
# bootEGA example
## plot.type = "qqraph" used for CRAN checks
## plot.type = "GGally" is the default
boot.wmt <- bootEGA(
data = wmt, iter = 500,
type = "parametric", ncores = 2
)
# EGA and bootEGA Methods section
methods.section(ega.wmt, boot.wmt)
# Estimate structural consistency
sc.wmt <- dimensionStability(boot.wmt)
# EGA and bootEGA Methods section with structural consistency and item stability
methods.section(boot.wmt, stats = c("dimensionStability", "itemStability"))
# EGA with network loadings and
# bootEGA Methods section with structural consistency and item stability
methods.section(
ega.wmt,
boot.wmt,
stats = c(
"net.loads",
"dimensionStability",
"itemStability"
)
)}
Run the code above in your browser using DataLab