# \donttest{
data(onemap_example_out)
twopt <- rf_2pts(onemap_example_out)
all_mark <- make_seq(twopt,"all")
all_mark <- make_seq(twopt,1:30) # same as above, for this data set
groups <- group(all_mark)
LG1 <- make_seq(groups,1)
LG1.ord <- order_seq(LG1)
(LG1.final <- make_seq(LG1.ord)) # safe order
(LG1.final.all <- make_seq(LG1.ord,"force")) # forced order
markers <- make_seq(twopt,c(2,3,12,14))
markers.comp <- compare(markers)
(base.map <- make_seq(markers.comp))
base.map <- make_seq(markers.comp,1,1) # same as above
(extend.map <- try_seq(base.map,30))
(base.map <- make_seq(extend.map,5)) # fifth position is the best
# }
Run the code above in your browser using DataLab