data(fake.f2)
fake.f2 <- subset(fake.f2, chr=c(18:19,"X"))
fake.f2 <- calc.genoprob(fake.f2, step=2.5)
operm1 <- scanone(fake.f2, n.perm=100, method="hk")
summary(operm1)
operm2 <- scanone(fake.f2, n.perm=100, method="hk", perm.Xsp=TRUE)
summary(operm2)Run the code above in your browser using DataLab