if (FALSE) {
file <- paste0("https://raw.githubusercontent.com/rqtl/",
"qtl2data/main/DOex/DOex.zip")
DOex <- read_cross2(file)
pr <- calc_genoprob(DOex, error_prob=0.002)
m <- maxmarg(pr)
phA <- guess_phase(DOex[1:10,], m[1:10,])
phB <- guess_phase(DOex[11:20,], m[11:20,])
ph <- rbind(phA, phB)
}
Run the code above in your browser using DataLab