Muito bom...<div><br><div class="gmail_quote">2012/7/31 Fabio Mathias Corrêa <span dir="ltr"><<a href="mailto:fabio.ufla@yahoo.com.br" target="_blank">fabio.ufla@yahoo.com.br</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div style="font-size:12pt;font-family:times new roman,new york,times,serif"><div><span>Isso mesmo!</span></div><div><span><br></span></div><div><span>Veja o help!</span></div><div><span><br></span></div><div><span>?array</span></div>
<div><span>?apply</span></div><div class="im"><div> </div><div> Fábio Mathias Corrêa<br><br></div><div> Universidade Estadual de Santa Cruz<br>Departamento de Ciências Exatas e da Terra - DCET</div><br><br><div>
Campus Soane Nazaré de Andrade, km 16 Rodovia Ilhéus-Itabuna<br>CEP 45662-900. Ilhéus-Bahia</div><div><br><br></div></div><div>Tel.: <a href="tel:73-3680-5076" value="+557336805076" target="_blank">73-3680-5076</a><br> <div style="font-family:'times new roman','new york',times,serif;font-size:12pt">
<div style="font-family:'times new roman','new york',times,serif;font-size:12pt"> <div dir="ltr"> <font face="Arial"> <hr size="1"> <b><span style="font-weight:bold">De:</span></b>
andrebvs <<a href="mailto:andrebvs@bol.com.br" target="_blank">andrebvs@bol.com.br</a>><div class="im"><br> <b><span style="font-weight:bold">Para:</span></b> <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a> <br>
<b><span style="font-weight:bold">Enviadas:</span></b> Terça-feira, 31 de Julho de 2012 13:22<br> <b><span style="font-weight:bold">Assunto:</span></b> Re: [R-br] Combinar colunas de um banco de dados...<br> </div></font> </div>
<br><div><div class="im">obg Luciano!<br> <br><br>
<hr style="border-top:1px solid #ccc">
Em 30/07/2012 09:24, <b>Luciano F. Sgarbi < <a href="mailto:luciano.f.sgarbi@gmail.com" target="_blank">luciano.f.sgarbi@gmail.com</a> ></b> escreveu:<br>#Seria isso:
</div><div>
<div>data<-read.table('clipboard',h=T)##esse é aquela matriz de 12 colunas</div><div class="im">
<div>combinations<-combn(colnames(data),6)</div>
<div>loop<-ncol(combinations)</div>
<div>resu<-matrix(0,10,loop)</div>
<div>colnames(resu)<-paste(rep("comb",loop),"_",1:loop,sep="")</div>
<div>rownames(resu)<-paste(rep("row",10),"_",1:10,sep="")</div>
<div>for(i in 1:loop){</div>
<div>resu[,i]<-rowSums(data[,combinations[,i]])</div>
<div>}</div>
<div>resu</div>
</div></div>
<div><br><br>
<div>2012/7/29 andrebvs <span dir="ltr"><<a rel="nofollow" href="http://mce_host/compose?to=andrebvs@bol.com.br" target="_blank">andrebvs@bol.com.br</a>></span><br>
<blockquote style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Obg colegas!<br><br><div class="im">Agora, tem como somar as linhas de cada combinação? De forma que eu tenha um resultado geral do tipo:<br>
<br> C1Â C2Â C3Â ... C924 <br>[1,]Â Â Â 5Â Â 5<br>[1,] Â Â 6Â Â 5<br>[1,] Â Â 4Â Â 6<br>[1,] Â Â 6Â Â 5<br>[1,]Â Â Â 6Â Â 4<br>[1,] Â Â 4Â Â 7<br>[1,]Â Â Â 4Â Â 7<br>[1,] Â Â 3Â Â 8<br>[1,] Â Â 9Â Â 8<br>
</div>[1,] Â Â 2 Â 6<div class="im"><br>.<br>.<br>.<br>[1265,]<br> <br><br><i>thanks!</i><br> <br><br>
<hr style="border-top:1px solid #ccc">
Em 29/07/2012 20:01, <b>Luciano F. Sgarbi < <a rel="nofollow" href="http://mce_host/compose?to=luciano.f.sgarbi@gmail.com" target="_blank">luciano.f.sgarbi@gmail.com</a> ></b> escreveu:<br></div>É isso mesmo!<br><br>
<div>2012/7/29 Pedro Rafael <span dir="ltr"><<a rel="nofollow" href="http://mce_host/compose?to=pedro.rafael.marinho@gmail.com" target="_blank">pedro.rafael.marinho@gmail.com</a>></span><br>
<blockquote style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div>
<div>Se quiser uma outra combinação colocar dados[as.vector(colunas_combinadas[,2])]<br>
<div>[ Â ],<br> Pedro Rafael Diniz Marinho.<br> <br> <br></div><div class="im">
Em 29 de julho de 2012 19:55, Pedro Rafael<br> <<a rel="nofollow" href="http://mce_host/compose?to=pedro.rafael.marinho@gmail.com" target="_blank">pedro.rafael.marinho@gmail.com</a>> escreveu:</div></div>
</div>
<div>
<div>
<div>
<div><div class="im">> dados = read.table("dados_teste.txt",header=TRUE)<br> > nomes_das_colunas = as.vector(colnames(dados))<br> > colunas_combinadas = combn(nomes_das_colunas,6)<br> > dados[as.vector(colunas_combinadas[,1])]<br>
</div> > [ Â ],<div class="im"><br> > Pedro Rafael Diniz Marinho.<br> ><br> ><br> > Em 29 de julho de 2012 19:47, andrebvs [via R-br]<br> > <<a rel="nofollow" href="http://../undefined/compose?to=ml-node" target="_blank">ml-node+s2285057n4655711h18@n4.nabble.com</a>> escreveu:<br>
</div><div class="im"> >> Olá Luciano!<br> >><br> >> A dúvida é a seguinte:<br></div> >> 1º) Tenho o seguinte banco de dados abaixo:<div class="im"><br> >><br> >><br> >> Q1 Q2 Q3 Q4 Q5 Q6 Q7 Q8 Q9 Q10 Q11 Q12<br>
</div><div class="im"> >> 1 Â Â 1 Â 0 Â 3 Â 1 Â 0 Â 0 Â 0 Â 1 Â 0 Â Â 1 Â Â 0 Â Â 1<br> >> 2 Â
 1  3  0  0  1  1  0  1  1   0   2   1<br> >> 3   0  2  1  0  0  1  3  0  0 Â
 1   0   0<br> >> 4   1  0  0  2  2  1  0  0  0   0   2   1<br> >> 5   0  2  1  0  1  2  0  1  1   1   0   2<br> >> 6   1  1  0  1  1  0  3  1  2   1   1   0<br>
>> 7 Â Â 1 Â 1 Â 0 Â 1 Â 1 Â 0 Â 0 Â 0 Â 0 Â Â 1 Â Â 1 Â Â 1<br> >> 8 Â Â 0 Â 1 Â 0 Â 1 Â 0 Â 1 Â 2 Â 0 Â 2 Â Â 0 Â Â 3 Â Â 0<br> >> 9
  1  2  3  1  2  0  0  0  0   2   0   1<br> >> 10   0  1  0  1  0  0  1  0  1   1   0   2<br> >><br> >> 2º) Quero combinar todas as 12 colunas tomadas 6 à 6, fazendo as contas<br>
</div> >> terei 924 combinações possivéis, e uma combinação possÃvel seria, por<br> >> exemplo a seguinte:<br> >><div><div class="h5"><br> >> Q1  Q4  Q7 Q8 Q9  Q12<br> >> 1   1   1   0  1  0   1</div>
</div></div>
</div><div><div class="h5">
>> 2   1   0   0 Â  1  1   1
<div>
<div><br> >> 3 Â Â 0 Â Â 0 Â Â 3 Â 0 Â 0 Â Â 0<br> >> 4 Â Â 1 Â Â 2 Â Â 0 Â 0 Â 0 Â Â 1<br> >> 5 Â Â 0 Â Â 0 Â Â 0 Â 1 Â 1 Â Â 2<br> >> 6 Â Â 1 Â Â 1 Â Â 3 Â 1 Â 2 Â Â 0<br>
>> 7 Â Â 1 Â Â 1 Â Â 0 Â 0 Â 0 Â Â 1<br> >> 8 Â Â 0 Â Â 1 Â Â 2 Â 0 Â 2 Â Â 0<br> >> 9 Â Â 1 Â Â 1 Â Â 0 Â 0 Â 0 Â Â 1<br> >> 10 Â Â 0 Â 1 Â Â 1 Â 0 Â 1 Â Â 2<br> >><br>
>> Repare
que, das 12 colunas iniciais, tenho essa última com 6 colunas, a qual<br> >> é uma possÃvel combinação das 924. Então, como extrair todas as 924<br> >> combinações da matriz inicial?<br> >><br>
>> 3º) Após isso, ou seja, após ter encontrado todas as 924 combinações,<br> >> gostaria também, que tivesse um vetor q ue me retorne a soma de cada linha<br> >> de cada combinação. Por exemplo:<br>
>><br> >> combin
ação1<br> >> combinação924<br> >> Q1  Q4  Q7 Q8 Q9  Q12   soma das linhas      . . . Q6  Q1  Q11  Q2 Q9<br> >> Q7      soma das linhas<br> >> 1   1   1   0  1  0   1       4<br>
>> 0 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 2<br> >> 2 Â Â 1 Â Â 0 Â Â 0 Â 1 Â 1 Â Â 1 Â Â Â Â Â Â 4<br> >> 1 Â Â Â Â Â Â Â Â
                3<br> >> 3   0   0   3  0  0   0       3                � �<br> >> 3                         5<br>
>> 4 Â Â 1 Â Â 2 Â Â 0 Â 0 Â 0 Â Â 1 Â Â Â Â Â Â 4<br> >> 3 Â Â Â Â Â Â Â Â Â
               1<br> >> 5   0   0   0  1  1   2       4</div>
</div>
&g t;> . Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â .
</div></div><div><div><div class="h5"><br> >> 6   1   1   3  1  2   0       8<br> >> .                          .<br> >> 7   1   1   0  0  0   1       3                �<br>
>> �   .                   Â
      .<br> >> 8   0   1   2  0  2   0       5<br> >> etc                        etc<br> >> 9   1   1   0  0  0   1       3<br>
>> 10   0  1   1  0  1   2       5<br> >><br> >> desde já agradeço!<br> >><br> >><br></div></div> >> ________________________________</div><div class="im">
>> Em 29/07/2012 19:04, Luciano F. Sgarbi < [hidde n email] > escreveu:
</div><div><br> >> Boa tarde.<div class="im"><br> >> Tentei, mas não entendi sua pergunta.<br> >> Você pode ser um pouco mais especifico?<br> >> Abraços<br> >><br> >> 2012/7/29 andrebvs <br>
>>></div></div>
<div><div class="im">>>> Olá pessoal, gostaria de saber como faço para combinar essas 12 colunas<br></div> >>> (Q1 até Q12) tomados 6 à 6 colunas:<div class="im"><br> >>><br> >>> Q1 Q2 Q3 Q4 Q5 Q6 Q7 Q8 Q9 Q10 Q11 Q12<br>
</div><div class="im"> >>> 1 Â Â 1 Â 0 Â 3 Â 1 Â 0 Â 0 Â 0 Â 1 Â 0 Â Â 1 Â Â 0 Â Â 1<br> >>> 2 Â Â 1 Â 3 Â 0 Â 0 Â 1 Â 1 Â 0 Â 1 Â 1 Â Â 0 Â Â 2 Â Â 1<br> >>> 3 Â Â 0 Â 2 Â 1 Â 0 Â 0 Â 1 Â 3 Â 0 Â 0 Â Â 1 Â Â 0 Â Â 0<br>
>>> 4 Â Â 1 Â 0 Â 0 Â 2 Â 2 Â 1 Â 0 Â 0 Â 0 Â Â 0 Â Â 2
  1<br> >>> 5   0  2  1  0  1  2  0  1  1   1   0   2</div></div><div class="im">
>>> 6   1  1  0  1  1  0  3  1 Â  2   1   1   0
</div><div><div class="im"><br> >>> 7 Â Â 1 Â 1 Â 0 Â 1 Â 1 Â 0 Â 0 Â 0 Â 0 Â Â 1 Â Â 1 Â Â 1<br> >>> 8 Â Â 0 Â 1 Â 0 Â 1 Â 0 Â 1 Â 2 Â 0 Â 2 Â Â 0 Â Â 3 Â Â 0<br> >>> 9 Â Â 1 Â 2 Â 3 Â 1 Â 2 Â 0 Â 0 Â 0 Â 0 Â Â 2 Â Â 0 Â Â 1<br>
>>> 10   0  1 � � 0  1  0  0  1  0  1   1   0   2<br> >>><br> >>> desde já agradeço!<br> >>><br> >>> Att.<br> >>> André<br> >>><br>
>>><br></div><div class="im"> >>>
_______________________________________________<br> >>> R-br mailing list<br> >>> R-br@...<br> >>><br> >>> <a rel="nofollow" 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></div>
</div><div class="im">
>>> Leia o guia de postagem (<a rel="nofollow" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.b r/r-br-guia</a>) e forneça
</div><div><div class="im"><br> >>> código mÃnimo reproduzÃvel.<br> >><br> >><br> >><br></div> >> --<br> >> Luciano F. Sgarbi<div class="im"><br> >> Mestrando em Ecologia e Evolução - UFG<br>
>><br></div> >> Laboratório de Ecologia de Insetos<div class="im"><br> >> Cel. <a rel="nofollow">(62)8174-2262</a> Lab. <a rel="nofollow">(62)3521-1732</a><br> >><br> >><br> >><br> >><br>
>><br> >><br> >><br> >> _______________________________________________<br> >> R-br mailing list<br> >> [hidden email]<br> >> <a rel="nofollow" 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></div>
</div>
>> Leia o guia de postagem (<a rel="nofollow" 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
<div><br> >> mÃnimo reproduzÃvel.<br> >><div class="im"><br> >> ________________________________<br> >> If you reply to this email, your message will be added to the discussion<br> >> below:<br>
>> <a rel="nofollow" href="http://r-br.2285057.n4.nabble.com/R-br-Combinar-colunas-de-um-banco-de-dados-tp4655709p4655711.html" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-Combinar-colunas-de-um-banco-de-dados-tp4655709p4655711.html</a><br>
>> To unsubscribe from R-br, click here.<br> >> NAML<br> _______________________________________________<br> R-br mailing list<br> <a rel="nofollow" href="http://mce_host/compose?to=R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" 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></div></div><div class="im">
Leia o guia de postagem (<a rel="nofollow" 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.</div></div>
</div>
</blockquote>
</div>
<div>
<div><div class="im"><br><br> -- <br><span style="color:rgb(51,51,51);font-family:sans-serif">Luciano F. Sgarbi</span><br><span style="font-family:sans-serif;color:rgb(51,51,51)">Mestrando em Ecologia e Evolução - UFG</span><br>
</div><span style="color:rgb(51,51,51);font-family:sans-serif">Laboratório de Ecologia de Insetos</span><br>
<div><span style="color:rgb(51,51,51);font-family:sans-serif">Cel. <a rel="nofollow">(62)8174-2262</a> Lab. <a rel="nofollow">(62)3521-1732</a></span>
<div>
<div>Â </div>
<div>Â </div>
</div>
</div>
<br> <br></div>
</div><div class="im">
<br>_______________________________________________<br> R-br mailing list<br> <a rel="nofollow" href="http://mce_host/compose?to=R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br> <a rel="nofollow" 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>
</div> Leia o guia de postagem (<a rel="nofollow" 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></blockquote>
</div><div class="im">
<br><br>
-- <br> <span style="color:rgb(51,51,51);font-family:sans-serif">Luciano F. Sgarbi</span><br><span style="font-family:sans-serif;color:rgb(51,51,51)">Mestrando em Ecologia e Evolução - UFG</span><br>
<blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote>
</div><div class="im"><span style="color:rgb(51,51,51);font-family:sans-serif">Laboratório de Ecologia de Insetos</span><br>
<div><span style="color:rgb(51,51,51);font-family:sans-serif">Cel. <a href="tel:%2862%298174-2262" value="+556281742262" target="_blank">(62)8174-2262</a> Â Lab. <a href="tel:%2862%293521-1732" value="+556235211732" target="_blank">(62)3521-1732</a></span>
<div>
<div>Â </div>
<div>Â </div>
</div>
</div>
</div></div>
<br>
</div><div class="im"><br>_______________________________________________<br>R-br mailing list<br><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><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> </div></div> </div> </div></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><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></blockquote></div><br><br clear="all"><div><br></div>-- <br>
<blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><span style="color:rgb(51,51,51);font-family:'Arial Narrow',sans-serif">Luciano
F. Sgarbi</span><br><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><font color="#333333" face="'Arial Narrow', sans-serif">Mestrando em Ecologia e Evolução - UFG</font><br><blockquote style="margin:0 0 0 40px;border:none;padding:0px">
</blockquote><span style="color:rgb(51,51,51);font-family:'Arial Narrow',sans-serif">Laboratório
de Ecologia de Insetos</span><br><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><div><span style="color:rgb(51,51,51);font-family:'Arial Narrow',sans-serif">Cel.
(62)8174-2262 Lab. (62)3521-1732</span><div>
<p></p><p></p></div>
<div style="display:inline"></div></div><br>
</div>