lm.moments2(xtx, leftvar, rightvars, n = NULL)
make.moments2
.est.moments2
with
scale = NULL
.
rightvars
are removed, with
preference for keeping variables that occur earlier rather than later
in rightvars
.
data(mthfrex)
xtx <- make.moments2(mthfr.params, c("SBP", "DBP", "SexC", "Age"), mthfrex)
lm.moments2(xtx, "SBP", c("ONE", "rs6668659_T", "rs4846049_T",
"rs1801133_G", "SexC", "Age"))
## Compare against results from lm
## Note have to use coded alleles in original data
lm(SBP ~ rs6668659_G+rs4846049_G+rs1801133_A+Sex+Age, data = mthfrex$data)
## Note in results Sex factor coded differently than SexC
Run the code above in your browser using DataLab