[R-es] Loop for: mostrar el nombre de la variables

[Olivier Nuñez]

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