data(fake.bc)
fake.bc$pheno[,2] <- log(fake.bc$pheno[,2])
out.anova <- scanone(fake.bc,pheno.col=2,method="anova")
fake.bc <- calc.genoprob(fake.bc,step=2,off.end=5)
out.im <- scanone(fake.bc,pheno.col=2,method="im")
out.hk <- scanone(fake.bc,pheno.col=2,method="hk")
plot(out.hk,out.anova,lty=1,col=c("red","blue"),chr=c(1,9,11))
plot(out.im,add=TRUE,lty=1,col="black",chr=c(1,9,11))
summary(out.im,3)Run the code above in your browser using DataLab