# NOT RUN {
data(fake.f2)
# }
# NOT RUN {
fake.f2 <- calc.genoprob(fake.f2)
# }
# NOT RUN {
operm1 <- scantwo(fake.f2, method="hk", n.perm=50)
operm2 <- scantwo(fake.f2, method="hk", n.perm=50)
# }
# NOT RUN {
operm <- c(operm1, operm2)
# }
Run the code above in your browser using DataLab