R/mode_stat.R

In mtcruz/mtcruzr: Mateus T Cruz personal R Code

#' Statistical mode
#'
#' R doesn't have a built-in function for calculating the statistical mode. This
#' function implements that.
#' @param x numeric, character or factor data.
#' @keywords mode
#' @export
#' @examples
#' mode_stat(c("A", "A", LETTERS[1:10]))
#' mode_stat(c("1", "1", 1:10))

mode_stat <- function(x) {
  ux <- unique(x)
  ux[which.max(tabulate(match(x, ux)))]
}