data(miscEx)
# impute missing genotypes
gdatTmp<- genoImpute(gdatF8, gmap=gmapF8, step=Inf,
gr=8, na.str=NA)
# estimate variance components
o<- estVC(y=pdatF8$bwt, x=pdatF8$sex, v=list(AA=gmF8$AA,DD=gmF8$DD,
HH=NULL, AD=NULL, MH=NULL, EE=diag(length(pdatF8$bwt))))
# genome scan and plotting
pv<- scanOne(y=pdatF8$bwt, x=pdatF8$sex, gdat=gdatTmp, vc=o)
pv
plot(pv,gmap=gmapF8)
# Haley-Knott method
gdtmp<- gdatF8; unique(unlist(gdtmp))
gdtmp<- replace(gdtmp,is.na(gdtmp),0)
prDat<- genoProb(gdat=gdtmp, gmap=gmapF8, step=Inf,
gr=8, method="Haldane", verbose=TRUE)
pv.hk<- scanOne(y=pdatF8$bwt, x=pdatF8$sex, prdat=prDat, vc=o)
pv.hk
plot(pv.hk)Run the code above in your browser using DataLab