# NOT RUN {
# Load data
wmt <- wmt2[,7:24]
# }
# NOT RUN {
# Estimate EGA model
ega.wmt <- EGA(data = wmt, model = "glasso", plot.EGA = FALSE)
# }
# NOT RUN {
# Compute entropy indices
entropyFit(data = wmt, structure = ega.wmt$wc)
# }
Run the code above in your browser using DataLab