R/utils-math.R

Defines functions which_median

which_median <- function(x) {
  n <- length(x)
  if (n %% 2 == 0) order(x)[n/2] else order(x)[n/2+1]
}
chroetz/spheregr documentation built on April 10, 2022, 12:03 a.m.