data(fake.f2)
fake.f2 <- calc.genoprob(fake.f2,step=2.5)
out.mr <- scanone(fake.f2, method="mr")
out.im <- scanone(fake.f2, chr=c(1,13), method="em")
plot(out.mr)
plot(out.mr, out.im, chr=c(1,13))
plot(out.mr, out.im, , c(1,13), lty=1, col=c("violetred","black"))
out.hk <- scanone(fake.f2, chr=c(1,13), method="hk")
plot(out.hk, , , c(1,13), add=TRUE, col="slateblue")
Run the code above in your browser using DataLab