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