Muito obrigado Ribas, funcionou direitinho!<br /><br />Que Deus te abençoe amigo ;)<br /><br /><em>Att.<br />André</em><br /> <br /><br />
<hr style="border-top: 1px solid #ccc;" />
Em 27/05/2012 16:09, <strong>Augusto Ribas < ribas.aca@gmail.com ></strong> escreveu:<br />Enquanto ninguem responde, da pra quebrar o galho assim.<br /><br />#Seus dados<br />vet1 <- c(02,03,04,05,06,07,08,10,30,50,70,90)<br />vet2 <- c(10,11,13,14,15,16,17,18,19,31,51,71,91)<br />vet3 <- c(02,22,23,24,25,26,27,28,42,62,82)<br />vet4 <- c(03,13,23,30,31,33,34,35,36,37,38,39,43,53,63,73,83,93)<br />vet5 <- c(04,14,24,34,42,43,44,45,46,47,48,54,64,74,84,94)<br />vet6 <- c(05,15,25,35,45,50,51,53,54,55,56,57,58,59,65,75,85,95)<br />vet7 <- c(06,16,26,36,46,56,62,63,64,65,66,67,68,76,86,96)<br />vet8 <- c(07,17,27,37,47,57,67,70,71,73,74,75,76,77,78,79,87,97)<br />vet9 <- c(08,18,28,38,48,58,68,78,82,83,84,85,86,87,88,98)<br />vet10 <- c(19,39,59,79,90,91,93,94,95,96,97,98,99)<br /><br />#junte numa lista<br />inicial<-list(vet1,vet2,vet3,vet4,vet5,vet6,vet7,vet8,vet9,vet10)<br /><br />#descreva as combinações<br />combinações<-combn
 (1:10,4)<br /><br />#faça uma pra testa<br />dados<-list(c(inicial[[combinações[1,1]]],inicial[[combinações[2,1]]],<br /> inicial[[combinações[3,1]]],inicial[[combinações[4,1]]]))<br />dados<br /><br />#repita pro resto<br />for(i in 2:210) {<br /><br />dados[[i]]<-list(c(inicial[[combinações[1,i]]],inicial[[combinações[2,i]]],<br /><br />inicial[[combinações[3,i]]],inicial[[combinações[4,i]]]))<br />}<br /><br />#confira, 210 combinações<br />length(dados)<br /><br />#ache os duplicados<br />duplicated(dados[[1]])<br /><br />#retire eles pra um caso pra testa<br />dados[[1]]<-dados[[1]][!duplicated(dados[[1]])]<br /><br />#repita pra todos<br />for(i in 2:210) {<br /> dados[[i]]<-dados[[i]][!duplicated(dados[[i]])]<br /> }<br /><br />#sua lista final<br />dados<br />###### Fim   ####<br /><br />Acho que o ideal seria usar apply ao invez de loop com for, se for<br />muito mais dados começa a ficar lento demais usar loop com for.<br />Mas acho 
 que da pra quebrar o galho por enquanto, espero que ajude.<br /><br />Em 27 de maio de 2012 12:12, andrebvs  escreveu:<br />><br />> Olá pessoal, gostaria de saber como combinar vetores de tamanhos diferentes, por exemplo:<br />><br />> vet1 <- c(02,03,04,05,06,07,08,10,30,50,70,90)<br />> vet2 <- c(10,11,13,14,15,16,17,18,19,31,51,71,91)<br />> vet3 <- c(02,22,23,24,25,26,27,28,42,62,82)<br />> vet4 <- c(03,13,23,30,31,33,34,35,36,37,38,39,43,53,63,73,83,93)<br />> vet5 <- c(04,14,24,34,42,43,44,45,46,47,48,54,64,74,84,94)<br />> vet6 <- c(05,15,25,35,45,50,51,53,54,55,56,57,58,59,65,75,85,95)<br />> vet7 <- c(06,16,26,36,46,56,62,63,64,65,66,67,68,76,86,96)<br />> vet8 <- c(07,17,27,37,47,57,67,70,71,73,74,75,76,77,78,79,87,97)<br />> vet9 <- c(08,18,28,38,48,58,68,78,82,83,84,85,86,87,88,98)<br />> vet10 <- c(19,39,59,79,90,91,93,94,95,96,97,98,99)<br />><br />> uma combinação seria, por exemplo
 : vet1,vet2,vet7,vet10, me retornaria o seguinte:<br />><br />> 02,03,04,05,06,07,08,10,30,50,70,90,10,11,13,14,15,16,17,18,19,31,51,71,91,06,16,26,36,46,56,62,63,64,65,66,67,68,76,86,96,<br />> 19,39,59,79,9 0,91,93,94,95,96,97,98,99.<br />><br />> então, quero combinar vetores tomandos 4 a 4 nesses 10 vetores, desde modo, terei um total de 210 vetores combinados ao todo.<br />> Se não for pedir muito, gostaria tb que tais resultados nao viessem com números repetidos.<br />><br />> desde já agradeço.<br />><br />> Att.<br />> André<br />><br />> _______________________________________________<br />> R-br mailing list<br />> R-br@listas.c3sl.ufpr.br<br />> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia
 </a>) e forneça código mínimo reproduzível.<br /><br /><br /><br /><br />--<br />Grato<br />Augusto C. A. Ribas<br /><br />Site Pessoal: <a href="http://augustoribas.heliohost.org" target="_blank">http://augustoribas.heliohost.org</a><br />Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br />_______________________________________________<br />R-br mailing list<br />R-br@listas.c3sl.ufpr.br<br /><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br /><br />