require(umx)
data(twinData)
# add age 1 and age 2 columns
twinData$age1 = twinData$age2 = twinData$age
selDVs = c("bmi")
selCovs = c("age")
selVars = umx_paste_names(c(selDVs, selCovs), textConstant = "", suffixes= 1:2)
# just top 80 so example runs in a couple of secs
mzData = subset(twinData, zyg == 1, selVars)[1:80, ]
dzData = subset(twinData, zyg == 3, selVars)[1:80, ]
# TODO update for new dataset variable zygosity
# 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)
Run the code above in your browser using DataLab