R/helpers.R

In geomander: Geographic Tools for Studying Gerrymandering

Defines functions max_k min_k

min_k <- function(v, k) {
  sort(v)[seq_len(k)]
}

max_k <- function(v, k) {
  sort(v, decreasing = TRUE)[seq_len(k)]
}

Try the geomander package in your browser