data(fake.f2)
fake.f2 <- subset(fake.f2, chr=c(18:19,"X"), ind=1:50)
fake.f2 <- calc.genoprob(fake.f2, step=0)
if (FALSE) operm <- scantwo(fake.f2, n.perm=100, method="hk")# \dontshow{
operm <- scantwo(fake.f2, n.perm=3, method="hk")# }
summary(operm)
Run the code above in your browser using DataLab