# NOT RUN {
iron <- read_cross2(system.file("extdata", "iron.zip", package="qtl2"))
# }
# NOT RUN {
# calculate genotype probabilities
probs <- calc_genoprob(iron, error_prob=0.002)
# clean the genotype probabilities
# (doesn't really do anything in this case, because there are no small but non-zero values)
probs_clean <- clean(probs)
# clean only the females' genotype probabilities
probs_cleanf <- clean(probs, ind=names(iron$is_female)[iron$is_female])
# }
Run the code above in your browser using DataLab