# NOT RUN {
HW.model <- ' visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9 '
out <- measurementInvariance(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)
# }
Run the code above in your browser using DataLab