data(fake.f2)
fake.f2 <- calc.genoprob(fake.f2, step=1)
if (FALSE) out.boot <- scanoneboot(fake.f2, chr=13, method="hk")
out.boot <- scanoneboot(fake.f2, chr=13, method="hk", n.boot=50)
summary(out.boot)
plot(out.boot)
Run the code above in your browser using DataLab