mode_r_function

Mode <- function(x, tie = c("missing", "error"), ignore_categories = NULL) {
  
  if(!is.null(ignore_categories)){

        x <- x[!(x %in% ignore_categories)]

  }
  
  
  ux <- unique(x)
  tab <- tabulate(match(x, ux))
  output <- ux[tab == max(tab)]
  
  if(length(output) == 1){
    
    return(output)
    
  }else if(tie == "missing"){
    
    return(NA)
    
  }else if(tie == "error"){
    
    stop("There are multiple modes, and 'tie' argument was set to error.")
    
  }else if(tie == "min"){
    
    return(min(output))
  
  }else if(tie == "first"){
    
    return(output[1])
    
  }
}