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