# \donttest{
data(onemap_example_out)
twopt <- rf_2pts(onemap_example_out)
markers <- make_seq(twopt,c(30,12,3,14,2)) # correct phases
map_avoid_unlinked(markers)
markers <- make_seq(twopt,c(30,12,3,14,2),phase=c(4,1,4,3)) # incorrect phases
map_avoid_unlinked(markers)
# }
Run the code above in your browser using DataLab