# NOT RUN {
data(fake.bc)
# }
# NOT RUN {
fake.bc <- calc.genoprob(fake.bc)
# }
# NOT RUN {
operm1 <- scantwo(fake.bc, pheno.col=1, method="hk", n.perm=50)
operm2 <- scantwo(fake.bc, pheno.col=2, method="hk", n.perm=50)
# }
# NOT RUN {
operm <- cbind(operm1, operm2)
# }
Run the code above in your browser using DataLab