# 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
res <- dimensionStability(boot.wmt)
res$dimension.stability
if (FALSE) {
# Produce Methods section
methods.section(
boot.wmt,
stats = "dimensionStability"
)}
Run the code above in your browser using DataLab