# Load data
wmt <- wmt2[-1,7:24]
# Groups
groups <- rep(1:2, each = nrow(wmt) / 2)
# Fast for CRAN
# Measurement invariance
results <- invariance(wmt, groups, iter = 1, memberships = ega.wmt$wc, ncores = 2)
# \donttest{
# Measurement invariance
results <- invariance(wmt, groups, ncores = 2)
# }
Run the code above in your browser using DataLab