1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
# http://openmx.ssri.psu.edu/issue/2013/10/mxrename-fitted-model-objects-leaves-mxconstraint-objects-unrenamed
require(OpenMx)
aMat <- mxMatrix("Full", 1,1, name="aMat")
aCon <- mxConstraint(diag2vec(aMat)==0,name="aCon")
rTom <- mxModel( "Tom", aMat, aCon)
summary(rTomRun <- mxRun(rTom))
rTomRun$aMat$values[1,1] <- .1
omxCheckWarning(logLik(rTomRun), "MxModel 'Tom' was modified since it was run.")
rTomRun <- mxRename(rTomRun, newname="Tom")
omxCheckEquals(rTomRun$name, "Tom")
rNeal <- mxRename(rTomRun, newname="Neal")
summary(rNeal)
# ----
ade <- mxModel("ADE",
mxModel('s1',
mxAlgebra(1, name="ACE")))
ace <- mxRename(ade, "ACE")
omxCheckEquals(ace$name, "ACE")
omxCheckError(mxRename(ade, "s1"),
"There is already a model named 's1'")
|
