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 Feb. 26, 2025, 4:50 p.m.