R/stat_mode.R

In i3pack: Incentives for Inter- And Intra-Party Electoral Competition

Defines functions stat_mode

Documented in stat_mode

#' Auxiliary Internal Functions
#' 
#' @rdname n_elecfuns
#' @param x Numeric vector
#'
#' @return Statistical mode
#'
stat_mode <- function(x) {
  unique(x)[which.max(table(x))]
}

Try the i3pack package in your browser