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