R: Check that a model is locally identified

mxCheckIdentification {OpenMx} | R Documentation

## Check that a model is locally identified

### Description

Use the dimension of the null space of the Jacobian to determine whether or not a model is identified local to its current parameter values. The output is a list of the the identification status, the Jacobian, and which parameters are not identified.

### Usage

    mxCheckIdentification(model, details=TRUE)

### Arguments

`model` | A MxModel object or list of MxModel objects.
`details` | logical.

### Details

The mxCheckIdentification function is used to check that a model is identified. That is, the function will tell you if the model has a unique solution in parameter space. The function is most useful when applied to either (a) a model that has been run and had some NA standard errors, or (b) a model that has not been run but has reasonable starting values. In the former situation, mxCheckIdentification is used as a diagnostic after a problem was indicated. In the latter situation, mxCheckIdentification is used as a sanity check.

The method uses the Jacobian of the model expected means and the unique elements of the expected covariance matrix with respect to the free parameters. It is the first derivative of the mapping between the free parameters and the sufficient statistics for the Normal distribution. The method does not depend on data, but does depend on the current values of the free parameters. Thus, it only provides local identification, not global identification. Because the method does not depend on data, the model still could be empirically unidentified due to missing data.

The Jacobian is evaluated numerically and generally takes a few seconds, but much less than a minute.

The identification may not be accurate for model where definition variables are used. Currently, only the first row of the definition variable is evaluated.

When TRUE, the 'details' argument provides the names of the non-identified parameters. Otherwise, only the status and Jacobian are returned.

### Value

A named list with components

status

  logical. TRUE if the model is locally identified; otherwise FALSE.

jacobian

  matrix. The numerically evaluated Jacobian.

non_identified_parameters

  vector. The free parameter names that are not identified

### References

Bekker, P.A., Merckens, A., Wansbeek, T.J. (1994). Identification, Equivalent Models and Computer Algebra. Academic Press: Orlando, FL.

Bollen, K. A. & Bauldry, S. (2010). Model Identification and Computer Algebra. Sociological Methods & Research, 39, p. 127-156.

### See Also

`mxModel`

### Examples

    require(OpenMx)

    data(demoOneFactor)
    manifests <- names(demoOneFactor)
    latents <- "G1"
    model2 <- mxModel(model="One Factor", type="RAM",
          manifestVars = manifests,
          latentVars = latents,
          mxPath(from = latents[1], to=manifests[1:5]),
          mxPath(from = manifests, arrows = 2, lbound=1e-6),
          mxPath(from = latents, arrows = 2, free = FALSE, values = 1.0),
          mxData(cov(demoOneFactor), type = "cov", numObs=500)
    )
    fit2 <- mxRun(model2)

    id2 <- mxCheckIdentification(fit2)
    id2$status
    # The model is locally identified

    # Build a model from the solution of the previous one
    #  but now the factor variance is also free
    model2n <- mxModel(fit2, name="Non Identified Two Factor",
          mxPath(from=latents[1], arrows=2, free=TRUE, values=1)
    )

    mid2 <- mxCheckIdentification(model2n)
    mid2$non_identified_parameters
    # The factor loadings and factor variance
    #  are not identified.

[Package OpenMx version 2.9.6 Index]