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