# NOT RUN {
require(umx)
data(twinData)
selDVs = c("bmi")
mzData <- twinData[twinData$zygosity %in% "MZFF",][1:80,] # 80 pairs for speed
dzData <- twinData[twinData$zygosity %in% "DZFF",][1:80,]
m1 = umxACEv(selDVs = selDVs, sep="", dzData = dzData, mzData = mzData)
std = umx_standardize(m1)
# }
Run the code above in your browser using DataLab