# NOT RUN {
# Load data
wmt <- wmt2[,7:24]
# }
# NOT RUN {
# Estimate EGA network
ega.wmt <- EGA(data = wmt, model = "glasso")
# Estimate dimension stability
boot.wmt <- bootEGA(data = wmt, n = 100, typicalStructure = TRUE,
plot.typicalStructure = TRUE, model = "glasso",
type = "parametric", ncores = 4)
# Estimate item stability statistics
dimStability(boot.wmt, orig.wc = ega.wmt$wc, item.stability = FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab