mxCompare {OpenMx} | R Documentation |
Compare the fit of one or more models to a base model. The output is a table with one row per model comparison.
mxCompare(base, comparison, ..., all = FALSE)
base |
A MxModel object or list of MxModel objects. |
comparison |
A MxModel object or list of MxModel objects. |
... |
Not used. Forces remaining arguments to be specified by name. |
all |
A boolean value on whether to compare all bases with all comparisons. |
Use options(‘digits’=N) to set the minimum number of significant digits to be printed in values. The following columns appear in the output:
data(demoOneFactor) manifests <- names(demoOneFactor) latents <- c("G1") model1 <- mxModel("One Factor", type="RAM", manifestVars = manifests, latentVars = latents, mxPath(from=latents, to=manifests), mxPath(from=manifests, arrows=2), mxPath(from=latents, arrows=2, free=FALSE, values=1.0), mxData(cov(demoOneFactor), type="cov",numObs=500) ) fit1 <- mxRun(model1) latents <- c("G1","G2") model2 <- mxModel("Two Factor", type="RAM", manifestVars = manifests, latentVars = latents, mxPath(from=latents[1], to=manifests[1:3]), mxPath(from=latents[2], to=manifests[4:5]), mxPath(from=manifests, arrows=2), mxPath(from=latents, arrows=2, free=FALSE, values=1.0), mxData(cov(demoOneFactor), type="cov",numObs=500) ) fit2 <- mxRun(model2) mxCompare(fit1, c(fit2))