# 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'")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.