# NOT RUN {
data(fake.f2)
# }
# NOT RUN {
fake.f2 <- calc.genoprob(fake.f2, step=5)
out.2dim <- scantwo(fake.f2, method="hk")
# All pairs of loci
summaryScantwoOld(out.2dim)
# Pairs meeting specified criteria
summaryScantwoOld(out.2dim, c(7, 3, 3))
# Pairs with both conditional LODs > 2
summaryScantwoOld(out.2dim,c(0,1000,2))
# Pairs with interaction LOD is above 3
summaryScantwoOld(out.2dim,c(0,3,1000))
# }
Run the code above in your browser using DataLab