R/Mode.R

In Maritimes/Mar.utils: A suite of functions used by a variety of Maritimes packages

#' @title Mode
#' @description This function returns the mode of a vector, preserving data type.
#' If several values share the mode, all will be returned. 
#' @param x Vector
#' @family util
#' @author  Mike McMahon, \email{Mike.McMahon@@dfo-mpo.gc.ca}
#' @note stolen from https://stackoverflow.com/questions/2547402/how-to-find-the-statistical-mode
#' @export
Mode <- function(x) {
  ux <- unique(x)
  tab <- tabulate(match(x, ux))
  res <- ux[tab == max(tab)]
  return(res)
}