# \donttest{
#outcross example
data(onemap_example_out)
twopt <- rf_2pts(onemap_example_out)
lg<-group(make_seq(twopt, "all"))
maps<-vector("list", lg$n.groups)
for(i in 1:lg$n.groups)
maps[[i]]<- make_seq(order_seq(input.seq= make_seq(lg,i),twopt.alg =
"rcd"), "force")
draw_map(maps, grid=TRUE)
draw_map(maps, grid=TRUE, horizontal=TRUE)
# }
Run the code above in your browser using DataLab