<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:16px"><div dir="ltr"><span>Valeu Felipe e Listeiros, eu consegui </span>também usando matriz.</div><div></div><div> </div><div>[ ]'s.</div><div><div>Edson Lira<br>Estatístico<br>Manaus-Amazonas</div></div> <div class="qtdSeparateBR"><br><br></div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: times new roman, new york, times, serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"> <font size="2" face="Arial"> Em Terça-feira, 3 de Fevereiro de 2015 10:16, Felipe <felipe.e.barletta@gmail.com> escreveu:<br> </font> </div> <br><br> <div class="y_msg_container">Talvez isso resolva:<br clear="none"><br clear="none">======== Transformando variáveis =============<br clear="none"><br clear="none"><br clear="none">y<-sapply(dados,function(x) all(x%in%c('1','2','3','4','5')))<br clear="none"><br clear="none">dados[,y]<-sapply(dados[,y], as.numeric)<div class="yqt9098384429" id="yqtfd28910"><br clear="none"><br clear="none"></div><br><br></div> </div> </div> </div> </div></body></html>