# NOT RUN {
require(umx) # for umxRAM
# }
# NOT RUN {
df = umx_read_lower(file = "", diag = F, ensurePD=TRUE)
0.38
0.86	0.30
0.42	0.12	0.27
0.66	0.21	0.38	0.18
0.80	0.13	0.50	0.25	0.43
0.19	0.11	0.19	0.12	-0.06	0.22
0.27	0.09	0.33	0.05	-0.04	0.28	.73
0.52	0.17	0.38	0.37	0.39	0.44	0.18	0.13
IQtests = c("brainstorm", "matrix", "moral", "shopping", "typing")
n       = c("C", IQtests, "avgIQ", "maxIQ", "video")
dimnames(df) = list(n,n)
m1 = umxRAM("wooley", data = mxData(df, type="cov", numObs = 90),
	umxPath("g", to = IQtests),
	umxPath(var = "g", fixedAt=1),
	umxPath(var = IQtests)
)
summary(m1)
# }
Run the code above in your browser using DataLab