omxGraphviz is returning an error as in the title of this report...
# demo
require(OpenMx)
data(demoOneFactor)
manifests <- names(demoOneFactor)
latents <- c("G1")
model1 <- mxModel("One Factor", type="RAM",
manifestVars = manifests,
latentVars = latents,
mxPath(from=latents, to=manifests),
mxPath(from=manifests, arrows=2),
mxPath(from=latents, arrows=2, free=F, values=1.0),
mxData(cov(demoOneFactor), type="cov",numObs=500)
)
fit1 = mxRun(model1)
omxGraphviz(fit1,"test.dot")
#1
Log in or register to post comments
#2
looks to me in this code, that the line commented as "# G1<->G2" below is:
a. suppressing drawing the G1<->G1 and G2<->G2 variance loops
and
b. being drawn twice?
> model3 <- mxModel("Corr 2 Factor", type="RAM",
manifestVars = manifests,
latentVars = latents,
mxPath(from=latents[1], to=manifests[1:3]),
mxPath(from=latents[2], to=manifests[4:5]),
mxPath(from=manifests, arrows=2),
mxPath(from=latents,arrows=2, free=F, values=1.0),
mxPath(from=latents[1], to=latents[2], arrows=2, free=T, values=.1), # G1<->G2
mxData(cov(demoOneFactor), type="cov",numObs=500)
)
fit3 = mxRun(model3)
omxGraphviz(fit2)
Log in or register to post comments
#3
G1 -> G1[dir=both, headport=n, tailport=n];
G1 -> G2[dir=both];
G2 -> G1[dir=both];
G2 -> G2[dir=both, headport=n, tailport=n];
which is what was specified by the model.
Log in or register to post comments
#4
My brain-bug, then, is that I don't understand why this line:
mxPath(from=latents[1], to=latents[2], arrows=2, free=T, values=.1), # G1<->G2
generates two double-headed paths
G1 -> G2[dir=both];
G2 -> G1[dir=both];
I would have thought that it generated just one 2-headed path:
G1 ->G2[dir=both]
Log in or register to post comments
#5
Log in or register to post comments
#6
Cheers,
rumplestiltskin
Log in or register to post comments
#7
Log in or register to post comments
#8
Log in or register to post comments