[R-es] Loop for: mostrar el nombre de la variables
Olivier Nuñez
onunez en unex.es
Mar Jun 30 12:18:53 CEST 2015
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
Más información sobre la lista de distribución R-help-es