changed "mxCompare(fit1, c(fit1,fit2))" to "mxCompare(fit1, c(fit2))"
[openmx:openmx.git] / man / mxCompare.Rd
1 \name{mxCompare}
2 \alias{mxCompare}
3
4 \title{Assign Model Parameters}
5
6 \description{
7     Compare the fit of one or more models to a base model.
8     The output is a table with one row per model comparison.
9 }
10
11 \usage{
12 mxCompare(base, comparison, ..., all = FALSE)
13 }
14
15 \arguments{
16    \item{base}{A MxModel object or list of MxModel objects.}
17    \item{comparison}{A MxModel object or list of MxModel objects.}
18    \item{...}{Not used.  Forces remaining arguments to be specified by name.}
19    \item{all}{A boolean value on whether to compare all bases with all comparisons.}
20 }
21
22 \details{
23 Use options(\sQuote{digits}=N) to set the minimum number of significant digits to be printed in values. The following columns appear in the output:
24 \describe{
25 \item{base}{Name of the base model}
26 \item{comparison}{Name of the comparison model}
27 \item{ep}{Estimated parameters of the comparison model}
28 \item{minus2LL}{Minus 2*log-likelihood of the comparison model}
29 \item{df}{Degrees in freedom of the comparison model}
30 \item{AIC}{Akaike's Information Criterion for the comparison model}
31 \item{diffLL}{Change in minus 2*log-likelihood}
32 \item{diffdf}{Change in degrees of freedom}
33 \item{p}{Significance level of the change in fitness function}}
34 }
35
36 \seealso{
37 \code{\link{mxModel}} 
38 }
39
40 \examples{
41
42 data(demoOneFactor)
43 manifests <- names(demoOneFactor)
44 latents <- c("G1")
45 model1 <- mxModel("One Factor", type="RAM",
46       manifestVars = manifests,
47       latentVars = latents,
48       mxPath(from=latents, to=manifests),
49       mxPath(from=manifests, arrows=2),
50       mxPath(from=latents, arrows=2, free=FALSE, values=1.0),
51       mxData(cov(demoOneFactor), type="cov",numObs=500)
52 )
53
54 fit1 <- mxRun(model1)
55
56 latents <- c("G1","G2")
57 model2 <- mxModel("Two Factor", type="RAM",
58       manifestVars = manifests,
59       latentVars = latents,
60       mxPath(from=latents[1], to=manifests[1:3]),
61       mxPath(from=latents[2], to=manifests[4:5]),
62       mxPath(from=manifests, arrows=2),
63       mxPath(from=latents, arrows=2, free=FALSE, values=1.0),
64       mxData(cov(demoOneFactor), type="cov",numObs=500)
65 )
66 fit2 <- mxRun(model2)
67
68 mxCompare(fit1, c(fit2))
69 }