# NOT RUN {
HW.model <- ' visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9 '
out <- measurementInvariance(model = HW.model, data = HolzingerSwineford1939,
group = "school", quiet = TRUE)
modelDiff <- compareFit(out)
summary(modelDiff)
summary(modelDiff, fit.measures = "all")
summary(modelDiff, fit.measures = c("aic", "bic"))
# }
# NOT RUN {
## Save results to a file
saveFile(modelDiff, file = "modelDiff.txt")
## Copy to a clipboard
clipboard(modelDiff)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab