MuiltiModa no R

Site: AEDBEST

Função que apresenta as múltiplas modas de uma distribuição

Mult.Modas <- function(y){
d<-unique(y)
t<-tabulate(match(y,d))
d[t==max(t)]
}

vet<- c(1,1,1,2,2,2,2,3,3,3,3,3,3,3,4,6,7,6,7,8,8,8,8,8,8,8,9)
plot(tabulate(vet))

Mult.Modas(vet)

[1] 3 8