# NOT RUN {
require(umx)
data(twinData)
# replicate age to age1 & age2
twinData$age1 = twinData$age2 = twinData$age
selDVs = c("bmi") # Set the DV
selCovs = c("age") # Set the IV
selVars = umx_paste_names(selDVs, covNames = selCovs, sep = "", suffixes = 1:2)
# 80 rows so example runs fast
mzData = subset(twinData, zygosity == "MZFF", selVars)[1:80, ]
dzData = subset(twinData, zygosity == "DZFF", selVars)[1:80, ]
m1 = umxACEcov(selDVs = selDVs, selCovs = selCovs,
dzData = dzData, mzData = mzData, suffix = "", autoRun = TRUE
)
umxSummary(m1)
plot(m1)
# ====================
# = A bivariate test =
# ====================
selDVs = c("ht", "wt") # Set the DV
selCovs = c("age") # Set the IV
selVars = umx_paste_names(selDVs, covNames = selCovs, sep = "", suffixes = 1:2)
# 80 rows so example runs fast enough on CRAN
mzData = subset(twinData, zygosity == "MZFF", selVars)[1:80, ]
dzData = subset(twinData, zygosity == "DZFF", selVars)[1:80, ]
m1 = umxACEcov(selDVs = selDVs, selCovs = selCovs,
dzData = dzData, mzData = mzData, suffix = "", autoRun = TRUE
)
# Univariate bmi without covariate of age for comparison
m2 = umxACE(selDVs = selDVs, dzData = dzData, mzData = mzData, suffix="")
x = umx_residualize("bmi", "age", suffixes=1:2, twinData)
mzData = subset(x, zygosity == "MZFF", selVars)[1:80, ]
dzData = subset(x, zygosity == "DZFF", selVars)[1:80, ]
m3 = umxACE(selDVs = selDVs, dzData = dzData, mzData = mzData, suffix="")
# }
Run the code above in your browser using DataLab