iron <- read_cross2(system.file("extdata", "iron.zip", package="qtl2"))
iron <- iron[,c("19", "X")] # subset to chr 19 and X
# 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