# NOT RUN {
# Load data
wmt <- wmt2[,7:24]
# }
# NOT RUN {
#estimate EGA
ega.wmt <- EGA(data = wmt, plot.EGA = TRUE)
# }
# NOT RUN {
# Summary of EGA results
summary(ega.wmt)
# }
# NOT RUN {
# Dynamic plot
dynamic.plot(ega.wmt, title = "", vsize = 30, opacity = 0.4)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab