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
