if (FALSE) {
# load example data and calculate genotype probabilities
file <- paste0("https://raw.githubusercontent.com/rqtl/",
"qtl2data/main/DOex/DOex.zip")
DOex <- read_cross2(file)
probs <- calc_genoprob(DOex, error_prob=0.002)
# inferred genotypes
m <- maxmarg(probs, minprob=0.5)
# inferred SNP genotypes
inferg <- predict_snpgeno(DOex, m)
}
Run the code above in your browser using DataLab