[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