[R-br] Transformar banco

[Felipe]

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)