#Seria isso:<div><div>data<-read.table('clipboard',h=T)##esse é aquela matriz de 12 colunas</div><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><br><br><div class="gmail_quote">2012/7/29 andrebvs <span dir="ltr"><<a href="mailto:andrebvs@bol.com.br" target="_blank">andrebvs@bol.com.br</a>></span><br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Obg colegas!<br><br>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>[1,]    2   6<br>.<br>.<br>.<br>[1265,]<br>

<br><br><em>thanks!</em><br> <br><br>
<hr style="border-top:1px solid #ccc">
Em 29/07/2012 20:01, <strong>Luciano F. Sgarbi < <a href="mailto:luciano.f.sgarbi@gmail.com" target="_blank">luciano.f.sgarbi@gmail.com</a> ></strong> escreveu:<br>É isso mesmo!<br><br>
<div class="gmail_quote">2012/7/29 Pedro Rafael <span dir="ltr"><<a href="http://mce_host/compose?to=pedro.rafael.marinho@gmail.com" target="_blank">pedro.rafael.marinho@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5">Se quiser uma outra combinação colocar dados[as.vector(colunas_combinadas[,2])]<br>
<div>[   ],<br> Pedro Rafael Diniz Marinho.<br> <br> <br></div>
Em 29 de julho de 2012 19:55, Pedro Rafael<br> <<a href="http://mce_host/compose?to=pedro.rafael.marinho@gmail.com" target="_blank">pedro.rafael.marinho@gmail.com</a>> escreveu:<br>
</div></div><div>
<div><div><div class="h5">> 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>

 > [   ],<br> > Pedro Rafael Diniz Marinho.<br> ><br> ><br> > Em 29 de julho de 2012 19:47, andrebvs [via R-br]<br> > <<a href="http://../../../undefined/compose?to=ml-node" target="_blank">ml-node+s2285057n4655711h18@n4.nabble.com</a>> escreveu:<br>

 >> Olá Luciano!<br> >><br> >> A dúvida é a seguinte:<br> >> 1º) Tenho o seguinte banco de dados abaixo:<br> >><br> >><br> >> Q1 Q2 Q3 Q4 Q5 Q6 Q7 Q8 Q9 Q10 Q11 Q12<br> >> 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>

 >> terei 924 combinações possivéis, e uma combinação possível seria, por<br> >> exemplo a seguinte:<br> >><br> >> Q1  Q4  Q7 Q8 Q9  Q12<br> >> 1     1    1    0   1   0    1<br></div></div>
 >> 2     1    0    0 Â
   1   1    1<div><div class="h5"><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<br>

</div></div> &g
 t;> .                                                  .<div class="im"><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> >> ________________________________<br></div> >> Em 29/07/2012 19:04, Luciano F. Sgarbi < [hidde
 n email] > escreveu:<div class="im"><br> >> Boa tarde.<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>

 >>><br></div><div class="im"> >>> Olá pessoal, gostaria de saber como faço para combinar essas 12 colunas<br> >>> (Q1 até Q12) tomados 6 à 6 colunas:<br> >>><br> >>> Q1 Q2 Q3 Q4 Q5 Q6 Q7 Q8 Q9 Q10 Q11 Q12<br>

 >>> 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></div> >>> 6     1  1   0   1   1   0   3   1 Â
   2    1    1    0<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>

 >>> _______________________________________________<br> >>> R-br mailing list<br> >>> R-br@...<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>

</div> >>> Leia o guia de postagem (<a 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 class="im"><br> >>> código mínimo reproduzível.<br> >><br> >><br> >><br> >> --<br> >> Luciano F. Sgarbi<br> >> Mestrando em Ecologia e Evolução - UFG<br>

 >><br> >> Laboratório de Ecologia de Insetos<br> >> Cel. <a href="tel:%2862%298174-2262" target="_blank">(62)8174-2262</a> Lab. <a href="tel:%2862%293521-1732" target="_blank">(62)3521-1732</a><br> >><br>

 >><br> >><br> >><br> >><br> >><br> >><br> >> _______________________________________________<br> >> R-br mailing list<br> >> [hidden email]<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>

</div> >> 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<div class="im"><br> >> mínimo reproduzível.<br> >><br> >> ________________________________<br> >> If you reply to this email, your message will be added to the discussion<br> >> below:<br>

 >> <a 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 href="http://mce_host/compose?to=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></div> 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.</div>
</div>
</blockquote>
</div><div class="HOEnZb"><div class="h5">
<br><br>
<div></div>
-- <br><span style="color:#333333;font-family:'Arial Narrow',sans-serif">Luciano F. Sgarbi</span><br><span style="font-family:'Arial Narrow',sans-serif;color:#333333">Mestrando em Ecologia e Evolução - UFG</span><br>


<blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote>
<span style="color:#333333;font-family:'Arial Narrow',sans-serif">Laboratório de Ecologia de Insetos</span><br>
<div><span style="color:#333333;font-family:'Arial Narrow',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>
<p> </p>
<p> </p>
</div>
</div>
<br> <br>
</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>