R/dominant.R

In harvestchoice/hc-api3: HarvestChoice Data Services v3

#' Return the dominant class (the mode of a classified variable)
#'
#' This is a helper method used to return the dominant class of a classified variable.
#' This is equivalent to median for a numeric variable.
#'
#' @param x character array, can also be a factor
#' @return a 1-length character of the dominant class
#' @examples
#' dominant(sample(letters, 100, replace=T))
#' @export
dominant <- function(x) names(which.max(table(x, useNA="no")))[1]