1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
library(OpenMx)
df <- data.frame(dv=c(1L:10L,NA))
m1 <- mxModel(
"integer",
mxData(df, 'raw'),
mxMatrix(nrow=1,ncol=1,labels="data.dv",name="obj"),
mxFitFunctionAlgebra("obj"))
omxCheckError(mxRun(m1), "integer.data: NA in definition variable 'dv'")
df <- data.frame(dv=c(2.5, 3.5, NA))
m1 <- mxModel(
"double",
mxData(df, 'raw'),
mxMatrix(nrow=1,ncol=1,labels="data.dv",name="obj"),
mxFitFunctionAlgebra("obj"))
omxCheckError(mxRun(m1), "double.data: NA in definition variable 'dv'")
|
