ifa: Store latent mean & cov in regular MxMatrix
[openmx:openmx.git] / models / failing / NameParameterOverlap.R
1 #
2 #   Copyright 2007-2012 The OpenMx Project
3 #
4 #   Licensed under the Apache License, Version 2.0 (the "License");
5 #   you may not use this file except in compliance with the License.
6 #   You may obtain a copy of the License at
7
8 #        http://www.apache.org/licenses/LICENSE-2.0
9
10 #   Unless required by applicable law or agreed to in writing, software
11 #   distributed under the License is distributed on an "AS IS" BASIS,
12 #   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13 #   See the License for the specific language governing permissions and
14 #   limitations under the License.
15 # 2013-01-10 update for new error reporting when using named entity to constrain label
16
17
18 require(OpenMx)
19 # Check we error when a free named entity shares its name with a label in an object
20 foo <- mxMatrix(name = 'foo', nrow = 1, ncol = 1, free = TRUE, labels = 'foo')
21 bar <- mxAlgebra(foo, name = 'bar')
22 model <- mxModel('model', foo, bar)
23 omxCheckError(mxRun(model), paste("In model 'model' the following are both named entities and free parameters: 'foo'",
24 "\nIf you are trying to set a path using an mxAlgebra, then refer to the Algebra with square-bracket notation.",
25 "\ni.,e, instead of labels=\"", omxQuotes(overlap), "\" use: labels=\"", omxQuotes(overlap), "[1,1]\""))
26
27 foo   <- mxMatrix(name = 'foo',  nrow = 1, ncol = 1, free = TRUE , labels = 'a')
28 bar   <- mxMatrix(name = 'bar',  nrow = 1, ncol = 1, free = TRUE , labels = 'a')
29 baz   <- mxMatrix(name = 'baz',  nrow = 1, ncol = 1, free = FALSE, labels = 'a')
30 quux  <- mxMatrix(name = 'quux', nrow = 1, ncol = 1, free = FALSE, labels = 'a')
31 model <- mxModel('model', foo, bar, baz, quux)
32 omxCheckError(mxRun(model), "In model 'model' the name 'a' is used as a free parameter in 'model.foo' and 'model.bar' and as a fixed parameter in 'model.baz' and 'model.quux'")