# NOT RUN {
data(etrait)
y<- traits[,1:5]
qtl<- vector("list",5); qtl[[1]]<- c(1,2)
dists<- dists[c(4,11),]
x<- mdat - 3/2
# }
# NOT RUN {
o<- mtcmim(y, mpos, mdat, dists=dists, qtl=qtl, eps=NULL,
win=5, range=-1, pp=2, len=1)
of<- mtcmimAdd1(o, y=y, mpos=mpos, mdat=mdat, pp=2, len=3)
os<- mtcmimStep(of, y=y, mpos=mpos, mdat=mdat, cv=25,
direction="both", pp=2, len=3)
# }
Run the code above in your browser using DataLab