R/assign_regions.R

Defines functions assign_regions

# STEP 4 - assign regions to tiles

assign_regions <- function(region_centroids, tile_centroids) {
  dist_matrix <- matrix(as.numeric(sf::st_distance(tile_centroids, region_centroids)),
                        nrow = length(region_centroids))^2
  # output permutation of original indices
  as.numeric(clue::solve_LSAP(dist_matrix))
}

Try the tilemaps package in your browser

Any scripts or data that you put into this service are public.

tilemaps documentation built on July 10, 2020, 9:06 a.m.