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