## Not run: 
# 	require(umx)
# 	data(demoOneFactor)
# 	latents  = c("G")
# 	manifests = names(demoOneFactor)
# 	m1 <- 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 = FALSE, values = 1.0),
# 		mxData(cov(demoOneFactor), type = "cov", numObs = 500)
# 	)
# 	m1 = umxRun(m1, setLabels = TRUE, setValues = TRUE)
# 	umxCI_boot(m1, type = "par.expected")
# ## End(Not run)
Run the code above in your browser using DataLab