Una pregunta un poco tonta... Qué función calcula la moda o el intervalo modal Gracias José Miguel
Mode, del paquete prettyR Saludos 2010/5/7 José Miguel Contreras <jmcontreras en ugr.es>:> 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 en r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es >
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]]
Hola Si utilizas table aparece la moda en primer lugar, es lo más práctico. saludos patricia El 7 de mayo de 2010 16:59, Xavi de Blas <xaviblas@gmail.com> escribió:> Mode, del paquete prettyR > > Saludos > > > 2010/5/7 José Miguel Contreras <jmcontreras@ugr.es>: > > 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 > > > > _______________________________________________ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es >-- Patricia García González r-es.org/ [[alternative HTML version deleted]]