Bueno, te contesté rápido sin analizar mucho qué duda tenías con la gramática
de R.
He modificado tu función:
DES = function(XDADES)
{
with(XDADES,
for (XVARNUM in names(XDADES))
{
if(is.numeric(get(XVARNUM))) {
cat("Var Num: ",XVARNUM,mean(get(XVARNUM)),"\n")
}
else if(is.factor(get(XVARNUM)))
{
cat("Var factor: ",XVARNUM,"\n")
XOUT <- as.data.frame(table(get(XVARNUM)))
XOUT <- transform(XOUT, cumFreq = cumsum(Freq),
relative = prop.table(Freq))
print(XOUT)
}
else
{
cat ("Var desc")
}
}
)
}
Ahora da:
> DES(XDADES=TBL)
Var factor: SE
Var1 Freq cumFreq relative
1 H 7 7 0.7
2 M 3 10 0.3
Var Num: ED 50.04875
Un saludo. Olivier
_______________________________________________
R-help-es mailing list
[email protected]
https://stat.ethz.ch/mailman/listinfo/r-help-es
