iron <- read_cross2(system.file("extdata", "iron.zip", package="qtl2"))
p <- calc_genoprob(iron, err=0.002)
# heterozygosities by individual
het_ind <- calc_het(p)
# heterozygosities by marker
het_mar <- calc_het(p, "marker")
Run the code above in your browser using DataLab