R/helpers.R

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)]
}
christopherkenny/geomander documentation built on July 6, 2024, 7:57 a.m.