````r require("onyxR") data(demoOneFactor) manifests <- names(demoOneFactor) latents <- c("G") factorModel <- 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)) fit <- mxRun(factorModel)

onyx(fit) ```

openmx



brandmaier/onyxR documentation built on Nov. 5, 2021, 11:04 a.m.