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)
ph <- guess_phase(DOex, m)
ph <- ph[1:10,] # first ten individuals
ph <- ph[,2] # chromosome 2
}
Run the code above in your browser using DataLab