CODE EXAMPLE FOR R

mode in r

# No in-built R function for this, create custom function:
getmode <- function(v) {
   uniqv <- unique(v)
   uniqv[which.max(tabulate(match(v, uniqv)))]
}