# Load data
wmt <- wmt2[,7:24]
# EGA example
## plot.type = "qqraph" used for CRAN checks
## plot.type = "GGally" is the default
ega.wmt <- EGA(data = wmt, plot.type = "qgraph")
# Compute descriptives
network.descriptives(ega.wmt)
Run the code above in your browser using DataLab