R/findmode.R

In tqchen07/ctool: Feasible tools to make life easier.

Defines functions findmode

Documented in findmode

#' Find mode
findmode <- function(x){
    ux <- unique(x)
    ux[which.max(tabulate(match(x, ux)))]
}