R/modal.R

In sachserf/fsf: Collection of miscellanous functions

Defines functions modal

Documented in modal

#' compute modal value
#'
#' @param x Numeric.
#'
#' @export
modal <- function(x) {
  names(which.max(table(x)))
}