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 R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es