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)
# ## End(Not run)
Run the code above in your browser using DataLab