R/get_mode.R

In yimingli/r-li: Yiming Paul Li's personal R code.

#' Get the mode (most frequent) of a vector
#'
#' If there is a tie, get the first one.
#'
#' @param x a vector
#'
#' @return a scalar
#'
#' @examples
#' get_mode(c(1, 2, 2, 3))
#'
#' @export
get_mode <- function(x) {
    ux <- unique(x)
    ux[which.max(tabulate(match(x, ux)))]
}