moda

# Calcula la moda de un conjunto de datos

moda <- function(x) {
  t <- table(x)
  return(as.numeric(names(t)[t == max(t)]))

}