# NOT RUN {
# }
# NOT RUN {
#outcrossing example
data(onemap_example_out)
twopt <- rf_2pts(onemap_example_out)
markers <- make_seq(twopt,c(2,3,12,14))
markers.comp <- compare(markers)
base.map <- make_seq(markers.comp,1)
extend.map <- try_seq(base.map,30)
extend.map
print(extend.map,5) # best position
print(extend.map,4) # second best position
#F2 example
data(mapmaker_example_f2)
twopt <- rf_2pts(mapmaker_example_f2)
all_mark <- make_seq(twopt,"all")
groups <- group(all_mark)
LG3 <- make_seq(groups,3)
LG3.ord <- order_seq(LG3, subset.search = "twopt", twopt.alg = "rcd", touchdown=TRUE)
LG3.ord
safe.map<-make_seq(LG3.ord,"safe")
extend.map <- try_seq(safe.map,64)
extend.map
(new.map<-make_seq(extend.map,14)) # best position
# }
Run the code above in your browser using DataLab