# NOT RUN {
# }
# NOT RUN {
#outcrossing example
data(onemap_example_out)
twopt <- rf_2pts(onemap_example_out)
markers <- make_seq(twopt,c(12,14,15,26,28))
(markers.comp <- compare(markers))
(markers.comp <- compare(markers,verbose=TRUE))
#F2 example
data(onemap_example_f2)
twopt <- rf_2pts(onemap_example_f2)
markers <- make_seq(twopt,c(17,26,29,30,44,46,55))
(markers.comp <- compare(markers))
(markers.comp <- compare(markers,verbose=TRUE))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab