O R trás funções para o cálculo da média (mean) e da mediana (median) mas não para moda. A sugestão postada na lista R-Help por Dr. Brian D. Ripley para distribuições discretas foi:
statmod <- function(x) {
z <- table(as.vector(x))
names(z)[z == max(z)]
}
names(z)[z == max(z)]
}
n <- c(1,2,2,2,3,3)
statmod(n)
[1] "2"
statmod(n)
[1] "2"