R/factor_mode.R

In dsnavega/imputeForest: Missing value imputation model using randomForest

factor_mode <- function(x) {
  
  p_vector <- m_estimator(x)
  x_levels <- levels(x)
  x_mode <- which_maximum(p_vector)
  
  # return
  rout <- x_levels[x_mode]
  return(rout)

}