[R-es] Loop for: mostrar el nombre de la variables
Griera-yandex
griera en yandex.com
Mar Jun 30 12:49:34 CEST 2015
Hola Olivier:
Muy elegante esta solución! Es lo que necesitaba.
Gracias y saludos.
On Tue, 30 Jun 2015 12:28:06 +0200 (CEST)
Olivier Nuñez <onunez en unex.es> wrote:
> Un opción más elegante:
>
> DES = function(x)
> {
> res=NA
> if(is.numeric(x)) res=mean(x)
> else if(is.factor(x))
> {
> res <- as.data.frame(table(x))
> res <- transform(res, cumFreq = cumsum(Freq), relative = prop.table(Freq))
> }
> return(res)
> }
>
> > lapply(TBL,DES)
> $SE
> x Freq cumFreq relative
> 1 H 8 8 0.8
> 2 M 2 10 0.2
>
> $ED
> [1] 56.3203
>
>
>
> Un saludo. Olivier
Más información sobre la lista de distribución R-help-es