data(fake.f2)
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)## End(Not run)
operm <- c(operm1, operm2)
Run the code above in your browser using DataLab