# Load data
wmt <- wmt2[,7:24]
if (FALSE) {
# Estimate EGA
ega.wmt <- EGA(
data = wmt,
plot.EGA = FALSE # No plot for CRAN checks
)}
# Network loadings
net.loads(ega.wmt)
if (FALSE) {
# Produce Methods section
methods.section(
ega.wmt,
stats = "net.loads"
)}
Run the code above in your browser using DataLab