data(miscEx)
gdat.imp<- genoImpute(gdat, gmap=genMap, step=Inf,
gr=2, na.str=NA)
y<- rnorm(20)
x<- sample(c("Male","Female"),20,replace=TRUE)
v<- cov(matrix(rnorm(500*20),ncol=20))
o<- estVC(y, x, v = list(AA=v,DD=NULL,HH=NULL,AD=NULL,
MH=NULL,EE=diag(20)))
llk<- scanOne(y=y, x=x, gdat=gdat.imp[,1:20], vc=o)
llk
plot(llk,gmap=genMap)
gdtmp<- (gdat=="AA") + (gdat=="AB")*2 + (gdat=="BB")*3
gdtmp<- replace(gdtmp,is.na(gdtmp),0)
prDat<- genoProb(gdat=gdtmp, gmap=genMap, step=Inf,
gr=2, method="Haldane",verbose=TRUE)
# Haley-Knott method
llk.hk<- scanOne(y=y, prdat=prDat, vc=o, intcovar=x)
llk.hk
plot(llk.hk)
# ignore polygenic variation
llk.0<- scanOne(y=y, gdat=gdat.imp[,1:20],intcovar=x)
llk.0
Run the code above in your browser using DataLab