# NOT RUN {
# ===========================
# = Here's a simple example =
# ===========================
m1 = umxRAM("tim", data = mtcars,
umxPath(c("wt", "disp"), to = "mpg"),
umxPath("wt", with = "disp"),
umxPath(v.m. = c("wt", "disp", "mpg"))
)
# ====================================
# = A cov model, with steps laid out =
# ====================================
# 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("wt", with = "disp"),
umxPath(var = selVars)
)
# 4. Use umxSummary to get standardized parameters, CIs etc.
umxSummary(m1, show = "std")
# 5. Display path diagram
plot(m1)
plot(m1, resid = "line")
# ===================================================================================
# = For playing around, umxRAM supports a vector of manifest names in place of data =
# ===================================================================================
m1 = umxRAM("play", data = paste0("x", 1:4),
umxPath("g", to = paste0("x", 1:4)),
umxPath(var = paste0("x", 1:4)),
umxPath(v1m0 = "g")
)
# =================================================
# = 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"
# }
Run the code above in your browser using DataLab