How to find the statistical mode?

Question

In R, mean() and median() are standard functions which do what you\'d expect. mode() tells you the internal storage mode of the objec

Answer 1

While I like Ken Williams simple function, I would like to retrieve the multiple modes if they exist. With that in mind, I use the following function which returns a list of the modes if multiple or the single.

rmode <- function(x) {
  x <- sort(x)  
  u <- unique(x)
  y <- lapply(u, function(y) length(x[x==y]))
  u[which( unlist(y) == max(unlist(y)) )]
}