# NOT RUN {
require(umx)
data(demoOneFactor)
latents = c("G")
manifests = names(demoOneFactor)
m1 <- umxRAM("One Factor", data = mxData(cov(demoOneFactor), type = "cov", numObs = 500),
umxPath(from = latents, to = manifests),
umxPath(var = manifests),
umxPath(var = latents, fixedAt = 1)
)
m2 = umxConfint(m1, "all") # default: CIs added, but user prompted to set run = TRUE
m2 = umxConfint(m2, run = TRUE) # CIs run and reported
# Add CIs for asymmetric paths in RAM model, report them, save m1 with this CI added
m1 = umxConfint(m1, parm = "G_to_x1", run = TRUE)
# Add CIs for asymmetric paths in RAM model, report them, save m1 with mxCIs added
m1 = umxConfint(m1, parm = "A", run = TRUE)
umxConfint(m1, parm = "existing") # request existing CIs (none added yet...)
# }
Run the code above in your browser using DataLab