data(badorder)
badorder <- subset(badorder,chr=1)
# estimate recombination fractions
badorder <- est.rf(badorder)
plotRF(badorder)
# re-estimate map
newmap <- est.map(badorder)
plotMap(badorder, newmap)
# assess marker order on chr 1
rip3 <- ripple(badorder, chr=1, window=3)
summary(rip3)
Run the code above in your browser using DataLab