R/mode.R

mode <- function(x){
  ux <- unique(x)
  ux[which.max(tabulate(match(x, ux)))]
}
jackobailey/IDA documentation built on May 7, 2019, 6:59 p.m.