# NOT RUN {
# Estimate EGA
ega.wmt <- EGA(data = wmt2[,7:24], plot.EGA = TRUE)
# }
# NOT RUN {
# Summary of EGA results
summary(ega.wmt)
# Plot EGA network
plot(ega.wmt, vsize = 6, label.prop = 1)
# }
Run the code above in your browser using DataLab