R/mode.R

Defines functions mode

mode <-
function(x) {
  ux <- unique(x)
  ux[which.max(tabulate(match(x, ux)))]
}
Noobivsho/ssClust documentation built on Aug. 10, 2019, 5:47 a.m.