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[,2], m[,2])
phB <- guess_phase(DOex[,3], m[,3])
ph <- cbind(phA, phB)
}
Run the code above in your browser using DataLab