# NOT RUN {
data(badorder)
# }
# NOT RUN {
# 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