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)
# ## End(Not run)
Run the code above in your browser using DataLab