Nothing
library(OpenMx)
library(testthat)
t1 <- mxModel(
"test",
mxMatrix("Full", 2,2,values=1:4, free=TRUE, name="z"),
mxAlgebra(z, name="zCopy", fixed=TRUE, initial=matrix(1., 2,2))
)
t1 <- expect_warning(mxRun(t1),
"set for onDemand recompute yet is still at initial values")
omxCheckEquals(t1$zCopy$result, matrix(1., 2,2))
t2 <- mxModel(t1, mxComputeOnce("zCopy", 'fit'))
t2 <- mxRun(t2)
omxCheckEquals(t2$zCopy$result, t2$z$values)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.