# NOT RUN {
#bootEGA glasso example
boot.wmt <- bootEGA(data = wmt2[,7:24], n = 500, typicalStructure = TRUE,
plot.typicalStructure = TRUE, model = "glasso", type = "parametric", ncores = 4)
#bootEGA TMFG example
boot.intwl <- bootEGA(data = intelligenceBattery[,8:66], n = 500, typicalStructure = TRUE,
plot.typicalStructure = TRUE, model = "TMFG", type = "parametric", ncores = 4)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab