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