# umxRAM is like lm, ggplot2 etc: you give the data in a data = parameter
# A common error is to include data in the main list,
# a bit like saying lm(y~x + df) instead of lm(y~x, data=dd)...
# nb: unlike mxModel, umxRAM needs data at build time.
# 1. For convenience, list up the manifests you will be using
selVars = c("mpg", "wt", "disp")
# 2. Create an mxData object
myCov = mxData(cov(mtcars[,selVars]), type = "cov", numObs = nrow(mtcars) )
# 3. Create the model (see ?umxPath for more nifty options)
m1 = umxRAM("tim", data = myCov,
	umxPath(c("wt", "disp"), to = "mpg"),
	umxPath(cov = c("wt", "disp")),
	umxPath(var = c("wt", "disp", "mpg"))
)
# 4. Print a nice summary 
umxSummary(m1, show = "std")
## Not run: 
# # 5. Draw a nice path diagram (uses DiagrameR package or Graphviz app)
# plot(m1)
# plot(m1, resid = "line")
# 
# # =================================================
# # = This is an example of using your own labels:  =
# #   umxRAM will not over-ride them                =
# # =================================================
# m1 = umxRAM("tim", data = myCov,
# 	umxPath(c("wt", "disp"), to = "mpg"),
# 	umxPath(cov = c("wt", "disp"), labels = "b1"),
# 	umxPath(var = c("wt", "disp", "mpg"))
# )
# omxCheckEquals(m1$S$labels["disp", "wt"], "b1") # label preserved
# m1$S$labels
# #      mpg             wt            disp
# # mpg  "mpg_with_mpg"  "mpg_with_wt" "disp_with_mpg"
# # wt   "mpg_with_wt"   "wt_with_wt"  "b1"
# # disp "disp_with_mpg" "b1"          "disp_with_disp"
# ## End(Not run)
Run the code above in your browser using DataLab