iron <- read_cross2(system.file("extdata", "iron.zip", package="qtl2"))
probs <- calc_genoprob(iron, error_prob=0.002, map_function="c-f")
errorlod <- calc_errorlod(iron, probs)
# combine into one matrix
errorlod <- do.call("cbind", errorlod)
Run the code above in your browser using DataLab