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