R/Mode.R

In washb-eed-substudies/washbgam: What the Package Does (One Line, Title Case)

Defines functions Mode

Documented in Mode

#' Title
#'
#' @param x
#'
#' @return
#' @export
#'
#' @examples
Mode <- function(x) {
  ux <- unique(x)
  ux[which.max(tabulate(match(x, ux)))]
}