Valeu Felipe e Listeiros, eu consegui também usando matriz.
 
[  ]'s.
Edson Lira
Estatístico
Manaus-Amazonas


Em Terça-feira, 3 de Fevereiro de 2015 10:16, Felipe <felipe.e.barletta@gmail.com> escreveu:


Talvez isso resolva:

======== Transformando variáveis =============


y<-sapply(dados,function(x) all(x%in%c('1','2','3','4','5')))

dados[,y]<-sapply(dados[,y], as.numeric)