# NOT RUN {
#outcrossing example
data(example.out)
twopt <- rf.2pts(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(fake.f2.onemap)
twopt <- rf.2pts(fake.f2.onemap)
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
#Display diagnostic graphics
try.seq(safe.map,64,draw.try=TRUE) #best position (default)
try.seq(safe.map,64,draw.try=TRUE,pos=13) #second best position
try.seq(safe.map,64,draw.try=TRUE,pos=4) #wrong position
#Trying to position an unliked marker
try.seq(safe.map,66,draw.try=TRUE) #note the inconsistencies in the graphic
# }
Run the code above in your browser using DataLab