# Load data
wmt <- wmt2[,7:24]
if (FALSE) {
# Estimate bootstrap EGA
boot.wmt <- bootEGA(
data = wmt, iter = 500,
type = "parametric", ncores = 2
)}
# Estimate stability statistics
dimensionStability(boot.wmt)
Run the code above in your browser using DataLab