# NOT RUN {
# }
# NOT RUN {
#estimate EGA
ega.wmt <- EGA(data = wmt2[,7:24], model = "glasso", plot.EGA = TRUE)
#estimate EGAtmfg
ega.wmt <- EGA(data = wmt2[,7:24], model = "TMFG", plot.EGA = TRUE)
#summary statistics
summary(ega.wmt)
#plot
plot(ega.wmt)
#estimate EGA
ega.intel <- EGA(data = intelligenceBattery[,8:66], model = "glasso", plot.EGA = TRUE)
#summary statistics
summary(ega.intel)
#plot
plot(ega.intel)
# }
Run the code above in your browser using DataLab