map <- get_submap(solcap.dose.map[[1]], 1:20, verbose = FALSE)
tpt <- est_pairwise_rf(make_seq_mappoly(map))
new.map <- split_and_rephase(map, tpt, 1, 1)
map
new.map
plot_map_list(list(old.map = map, new.map = new.map), col = "ggstyle")
Run the code above in your browser using DataLab