# 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)
itemConfirm(boot.wmt, confirm = ega.wmt$wc)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab