[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