# NOT RUN {
ega.wmt <- EGA(data = wmt2[,7:24], model = "glasso")
boot.wmt <- bootEGA(data = wmt2[,7:24], n = 100, typicalStructure = TRUE,
plot.typicalStructure = TRUE, model = "glasso",
type = "parametric", ncores = 4, confirm = ega.wmt$wc)
itemConfirm(boot.wmt, confirm = ega.wmt$wc, plot.ic = TRUE)
itemIdent(boot.wmt, confirm = ega.wmt$wc, rep.val = .80)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab