# NOT RUN {
data(example.out)
twopt <- rf.2pts(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