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 <[email protected]> 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 _______________________________________________ R-help-es mailing list [email protected] https://stat.ethz.ch/mailman/listinfo/r-help-es
