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