See https://github.com/pedalea/pctSantiago folder for generation code
# u = "https://github.com/pedalea/pctSantiago/releases/download/0.0.1/santiago_od.Rds"
# download.file(u, destfile = "santiago_od.Rds", mode = "wb")
# santiago_od = readRDS("santiago_od.Rds")
santiago_od
#> # A tibble: 200 × 7
#> ZonaOrigen ZonaDestino n av_weight all range_weights pcycle
#> <dbl> <dbl> <int> <dbl> <dbl> <dbl> <dbl>
#> 1 259 497 5 691. 3453. 62.4 0
#> 2 260 261 17 206. 3495. 967. 0
#> 3 261 260 17 228. 3868. 967. 0
#> 4 263 264 5 517. 2586. 819. 0
#> 5 264 263 5 508. 2542. 853. 0
#> 6 266 501 2 1982. 3965. 1700. 0
#> 7 266 508 5 738. 3689. 1029. 0
#> 8 292 497 6 790. 4742. 1558. 0.0496
#> 9 292 510 3 2329 6987 0 0
#> 10 293 295 4 2673. 10693. 5921. 0
#> # ℹ 190 more rows