library(tibble)
# create a toy recombination map to simplify
# in this case all middle rows can be interpolated from the ends with practically no error
map <- tibble(
pos = c( 1L, 1e6L, 2e6L, 3e6L ),
posg = c( 0.0, 1.0, 2.0, 3.0 )
)
# simplify map!
map_simple <- recomb_map_simplify_chr( map )
# inspect
map_simple
Run the code above in your browser using DataLab