Buenos dias Jose Miguel,

Te sugiero lo siguiente:

# x discreta
modad <- function(x) as.numeric(names(which.max(table(x))))

# x es continua
modac <- function(x){
         dd <- density(x)
         dd$x[which.max(dd$y)]
           }


# ------------
#   Ejemplos
# ------------

# x es discreta
x <- rpois(100, 10)
modad(x)
table(x)

# x es continua
x <- rgamma(100, 3, 4)
modac(x)
dd <- density(x)
plot(dd, type = 'l', las = 1)
rug(x)
abline(v = dd$x[which.max(dd$y)], col = 2)


Saludos,
Jorge Ivan Velez


2010/5/7 José Miguel Contreras <>

> Una pregunta un poco tonta...
>
> Qué función calcula la moda  o el intervalo modal
>
> Gracias
>
> José Miguel
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>

	[[alternative HTML version deleted]]

