extfunctions:

get.mode <- function(x) {
  uniqv <- unique(x)
  uniqv[which.max(tabulate(match(x, uniqv)))]
  }

gabrielzanlorenssi/extfunctions documentation built on Dec. 30, 2019, 6:37 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.