Tenta com o reshape()<div><font face="courier new, monospace"><br></font></div><div><div><font face="courier new, monospace" color="#ff0000">> dados</font></div><div><font face="courier new, monospace" color="#333399"> V1 V2 V3</font></div>
<div><font face="courier new, monospace" color="#333399">1 Característica A Indivíduo 1 0</font></div><div><font face="courier new, monospace" color="#333399">2 Característica B Indivíduo 1 1</font></div><div><font face="courier new, monospace" color="#333399">3 Característica C Indivíduo 1 2</font></div>
<div><font face="courier new, monospace" color="#333399">4 Característica A Indivíduo 2 2</font></div><div><font face="courier new, monospace" color="#333399">5 Característica B Indivíduo 2 0</font></div><div><font face="courier new, monospace" color="#333399">6 Característica C Indivíduo 2 1</font></div>
<div><font face="courier new, monospace" color="#ff0000">> reshape(dados, idvar='V2', timevar='V1',direction='wide')</font></div><div><font face="courier new, monospace" color="#333399"> V2 V3.Característica A V3.Característica B V3.Característica C</font></div>
<div><font face="courier new, monospace" color="#333399">1 Indivíduo 1 0 1 2</font></div><div><font face="courier new, monospace" color="#333399">4 Indivíduo 2 2 0 1</font></div>
<div><br></div><div><br></div>[]'s</div><div><br><div class="gmail_quote">2012/10/26 <a href="mailto:fabrizzioconde@gmail.com">fabrizzioconde@gmail.com</a> <span dir="ltr"><<a href="mailto:fabrizzioconde@gmail.com" target="_blank">fabrizzioconde@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div style="MARGIN:5px 10px 0px;FONT-FAMILY:Arial;FONT-SIZE:12pt" bgcolor="#ffffff">
<table border="0" cellspacing="0" cellpadding="2" width="100%">
<tbody>
<tr>
<td style="DIRECTION:ltr;FONT-SIZE:12pt" width="100%">
<div style="PADDING-LEFT:2px">
<div>
<div>Caro Augusto,</div>
<div> </div>
<div> </div>
<div>Na realidade, cada característica na tabela abaixo é um marcador genético e estou analisando a variação desse marcador dentro da amostra de indivíduos. Os números na terceira coluna da tabela abaixo são os alelos ( 0 = AA, 1 = BB e 2 = AB). Os dados que tenham ESTão no formato abaixo:</div>
<div class="im">
<div> </div>
<div>
<table style="BORDER-BOTTOM:medium none;BORDER-LEFT:medium none;BORDER-COLLAPSE:collapse;BORDER-TOP:medium none;BORDER-RIGHT:medium none" border="1" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:black 1pt solid;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:black 1pt solid;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Característica A<u></u><u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:black 1pt solid;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Indivíduo 1<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.1pt;PADDING-RIGHT:5.4pt;BORDER-TOP:black 1pt solid;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">0<u></u><u></u></font></p></td></tr>
<tr>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:black 1pt solid;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Característica B<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Indivíduo 1<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.1pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">1<u></u><u></u></font></p></td></tr>
<tr>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:black 1pt solid;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Característica C<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Indivíduo 1<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.1pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">2<u></u><u></u></font></p></td></tr>
<tr>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:black 1pt solid;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Característica A<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Indivíduo 2<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.1pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">2<u></u><u></u></font></p></td></tr>
<tr>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:black 1pt solid;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Característica B<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Indivíduo 2<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.1pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">0<u></u><u></u></font></p></td></tr>
<tr>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:black 1pt solid;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Característica C<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Indivíduo 2<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:144.1pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="192">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">1<u></u><u></u></font></p></td></tr></tbody></table></div>
<div> </div>
</div><div>Eu preciso mudar o posicionamento da tabela acima para o formato da tabela abaixo: (para aplicar o modelo de regressão)</div><div class="im">
<div> </div>
<div>
<table style="BORDER-BOTTOM:medium none;BORDER-LEFT:medium none;BORDER-COLLAPSE:collapse;BORDER-TOP:medium none;BORDER-RIGHT:medium none" border="1" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:black 1pt solid;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:108.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:black 1pt solid;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="144">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><u></u><font face="Calibri"> </font><u></u></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:108.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:black 1pt solid;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="144">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Característica A<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:108.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:black 1pt solid;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="144">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Característica B<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:108.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:black 1pt solid;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="144">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Característica C<u></u><u></u></font></p></td></tr>
<tr>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:black 1pt solid;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:108.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="144">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Indivíduo 1<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:108.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="144">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">0<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:108.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="144">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">1<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:108.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="144">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">2<u></u><u></u></font></p></td></tr>
<tr>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:black 1pt solid;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:108.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="144">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">Indivíduo 2<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:108.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="144">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">2<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:108.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="144">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">0<u></u><u></u></font></p></td>
<td style="BORDER-BOTTOM:black 1pt solid;BORDER-LEFT:#f0f0f0;PADDING-BOTTOM:0cm;BACKGROUND-COLOR:transparent;PADDING-LEFT:5.4pt;WIDTH:108.05pt;PADDING-RIGHT:5.4pt;BORDER-TOP:#f0f0f0;BORDER-RIGHT:black 1pt solid;PADDING-TOP:0cm" valign="top" width="144">
<p style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt" class="MsoNormal"><font face="Calibri">1<u></u><u></u></font></p></td></tr></tbody></table></div>
<div> </div>
<div> </div>
</div><div>Desta forma, a segunda tabela é de certa forma uma "transposição" da primeira, mas não uma contagem do número de vezes que aparece o 0, 1 ou 2.</div>
<div> </div>
<div>Preciso colocar as características nas colunas do dataframe, pois irei aplicar uma regressão linear logística, sendo as características A, B e C as variáveis explanatórias. Tenho os dados da variável dicotomica y em outro arquivo como um vetor coluna.</div>
<div> </div>
<div>Muito obrigado.</div>
<div> </div>
<div>Abraços,</div>
<div>Fabrízzio</div>
<div> </div>
<div> </div>
<div> </div>
<div> </div>
<div> </div></div></div>
<div>
<div> </div>
<div> </div>
<div style="FONT-SIZE:11pt" dir="ltr"><i>-------Original Message-------</i></div>
<div> </div>
<div>
<div style="FONT-SIZE:11pt" dir="ltr"><i><b>From:</b></i> <a href="mailto:r-br-request@listas.c3sl.ufpr.br" target="_blank">r-br-request@listas.c3sl.ufpr.br</a></div>
<div style="FONT-SIZE:11pt" dir="ltr"><i><b>Date:</b></i> 10/26/12 14:43:29</div>
<div style="FONT-SIZE:11pt" dir="ltr"><i><b>To:</b></i> <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a></div>
<div style="FONT-SIZE:11pt" dir="ltr"><i><b>Subject:</b></i> Digest R-br, volume 20, assunto 38</div></div><div class="im">
<div> </div>
<div>Enviar submissões para a lista de discussão R-br para</div>
<div> <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a></div>
<div> </div>
<div>Para se cadastrar ou descadastrar via WWW, visite o endereço</div>
<div> <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></div>
<div>ou, via email, envie uma mensagem com a palavra 'help' no assunto ou</div>
<div>corpo da mensagem para</div>
<div> <a href="mailto:r-br-request@listas.c3sl.ufpr.br" target="_blank">r-br-request@listas.c3sl.ufpr.br</a></div>
<div> </div>
<div>Você poderá entrar em contato com a pessoa que gerencia a lista pelo</div>
<div>endereço</div>
<div> <a href="mailto:r-br-owner@listas.c3sl.ufpr.br" target="_blank">r-br-owner@listas.c3sl.ufpr.br</a></div>
<div> </div>
<div>Quando responder, por favor edite sua linha Assunto assim ela será</div>
<div>mais específica que "Re: Contents of R-br digest..."</div>
<div> </div>
<div> </div>
<div>Tópicos de Hoje:</div>
<div> </div>
</div><div> 1. Re: Coeficiente de Correlação Cofenética (T Branquinho)</div><div class="im">
<div> 2. Re: Transformação de dados no dataframe</div>
</div><div> (<a href="mailto:fabrizzioconde@gmail.com" target="_blank">fabrizzioconde@gmail.com</a>)</div><div class="im">
<div> 3. Re: Transformação de dados no dataframe (Augusto Ribas)</div>
<div> </div>
<div> </div>
<div>----------------------------------------------------------------------</div>
<div> </div>
<div>Message: 1</div>
</div><div>Date: Fri, 26 Oct 2012 13:36:07 -0200</div>
<div>From: T Branquinho <<a href="mailto:tbranquinho1@hotmail.com" target="_blank">tbranquinho1@hotmail.com</a>></div>
<div>To: R <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></div>
<div>Subject: Re: [R-br] Coeficiente de Correlação Cofenética</div>
<div>Message-ID: <<a href="mailto:BAY167-W1202591253BD2194857FEC6917E0@phx.gbl" target="_blank">BAY167-W1202591253BD2194857FEC6917E0@phx.gbl</a>></div>
<div>Content-Type: text/plain; charset="utf-8"</div>
<div> </div>
<div> </div>
<div>Esse material pode lhe ajudarestá no pacote stat que já vem no R ao instalá-lo.</div>
<div><a href="http://stat.ethz.ch/R-manual/R-devel/library/stats/html/cophenetic.html" target="_blank">http://stat.ethz.ch/R-manual/R-devel/library/stats/html/cophenetic.html</a></div>
<div> </div>
<div>Date: Fri, 26 Oct 2012 10:34:25 -0200</div>
<div>From: <a href="mailto:caetano.vidigal@gmail.com" target="_blank">caetano.vidigal@gmail.com</a></div>
<div>To: <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a></div>
<div>Subject: [R-br] Coeficiente de Correlação Cofenética</div>
<div> </div>
<div>Bom dia,</div>
<div>alguém sabe se existe algum pacote no R que calcula o coeficiente de correlação cofenética ao se fazer um agrupamento?Obrigado</div>
<div>--</div>
<div>Bruno C. Vidigal</div><div class="im">
<div> </div>
<div> </div>
<div> </div>
<div> </div>
<div>_______________________________________________</div>
<div>R-br mailing list</div>
<div><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a></div>
<div><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></div>
</div><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 class="im">
<div>-------------- Próxima Parte ----------</div>
<div>Um anexo em HTML foi limpo...</div>
</div><div>URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/ecdb53b6/attachment-0001.html" target="_blank">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/ecdb53b6/attachment-0001.html</a>></div>
<div> </div>
<div>------------------------------</div>
<div> </div>
<div>Message: 2</div>
<div>Date: Fri, 26 Oct 2012 13:38:39 -0200 (Horário brasileiro de verão)</div>
<div>From: "<a href="mailto:fabrizzioconde@gmail.com" target="_blank">fabrizzioconde@gmail.com</a>" <<a href="mailto:fabrizzioconde@gmail.com" target="_blank">fabrizzioconde@gmail.com</a>></div><div class="im">
<div>To: <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></div>
<div>Subject: Re: [R-br] Transformação de dados no dataframe</div>
</div><div>Message-ID: <<a href="mailto:508AAE7F.000009.01192@FABRIZZIO-PC" target="_blank">508AAE7F.000009.01192@FABRIZZIO-PC</a>></div>
<div>Content-Type: text/plain; charset="iso-8859-1"</div><div><div class="h5">
<div> </div>
<div> </div>
<div>Caro Augusto,</div>
<div> </div>
<div>O comando table do R faz uma contagem em fatores, assim, esse comando não</div>
<div>solucionou o meu problema, pois o que preciso fazer é reposicionar os dados</div>
<div>na tabela abaixo:</div>
<div> </div>
<div>Característica AIndivíduo 10</div>
<div>Característica BIndivíduo 11</div>
<div>Característica CIndivíduo 12</div>
<div>Característica AIndivíduo 22</div>
<div>Característica BIndivíduo 20</div>
<div>Característica CIndivíduo 21</div>
<div> </div>
<div> </div>
<div>Tentei usar o comando reshape com o seguinte código:</div>
<div> </div>
<div>Wide <- reshape(dados, v.names = "col3", idvar = "col2", timevar = "col 1")</div>
<div> </div>
<div>Mas esse comando está travando o R.</div>
<div> </div>
<div>A tabela final que preciso é:</div>
<div> </div>
<div> Característica ACaracterística BCaracterística C</div>
<div>Indivíduo 1012</div>
<div>Indivíduo 2201</div>
<div> </div>
<div> </div>
<div>Li o help do comando table, mas não consegui adaptá-lo para resolver esse</div>
<div>problema.</div>
<div> </div>
<div>Será que terei que implementar uma função para realizar essa tarefa?</div>
<div> </div>
<div>Abraços e muito obrigado pela ajuda e pela paciencia.</div>
<div> </div>
<div>Fabrízzio Condé de Oliveira</div>
<div> </div>
<div>-------Original Message-------</div>
<div> </div>
<div>From: <a href="mailto:r-br-request@listas.c3sl.ufpr.br" target="_blank">r-br-request@listas.c3sl.ufpr.br</a></div>
<div>Date: 10/24/12 12:00:14</div>
<div>To: <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a></div>
<div>Subject: Digest R-br, volume 20, assunto 30</div>
<div> </div>
<div>Enviar submissões para a lista de discussão R-br para</div>
<div> <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a></div>
<div> </div>
<div>Para se cadastrar ou descadastrar via WWW, visite o endereço</div>
<div> <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></div>
<div>ou, via email, envie uma mensagem com a palavra 'help' no assunto ou</div>
<div>corpo da mensagem para</div>
<div> <a href="mailto:r-br-request@listas.c3sl.ufpr.br" target="_blank">r-br-request@listas.c3sl.ufpr.br</a></div>
<div> </div>
<div>Você poderá entrar em contato com a pessoa que gerencia a lista pelo</div>
<div>endereço</div>
<div> <a href="mailto:r-br-owner@listas.c3sl.ufpr.br" target="_blank">r-br-owner@listas.c3sl.ufpr.br</a></div>
<div> </div>
<div>Quando responder, por favor edite sua linha Assunto assim ela será</div>
<div>mais específica que "Re: Contents of R-br digest..."</div>
<div> </div>
<div> </div>
<div>Tópicos de Hoje:</div>
<div> </div>
<div> 1. Re: Transformação de dados no dataframe (Augusto Ribas)</div>
<div> </div>
<div> </div>
<div>----------------------------------------------------------------------</div>
<div> </div>
<div>Message: 1</div>
<div>Date: Wed, 24 Oct 2012 09:50:12 -0300</div>
<div>From: Augusto Ribas <<a href="mailto:ribas.aca@gmail.com" target="_blank">ribas.aca@gmail.com</a>></div>
<div>To: <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a></div>
<div>Subject: Re: [R-br] Transformação de dados no dataframe</div>
<div>Message-ID:</div>
<div> <<a href="mailto:CACMkfRyM6o+=mvtJ7GuQXn2xMiNYgGdo1Za0m0erZ6aw6Xc09g@mail.gmail.com" target="_blank">CACMkfRyM6o+=mvtJ7GuQXn2xMiNYgGdo1Za0m0erZ6aw6Xc09g@mail.gmail.com</a>></div>
<div>Content-Type: text/plain; charset="windows-1252"</div>
<div> </div>
<div>Vamos supor um exemplo de dados:</div>
<div> </div>
<div>#dados de exemplo</div>
<div>dados<-data.frame(col1=round(runif(20,1,4)),col2=sample(c("A","B"),20</div>
</div></div><div><div class="h5"><div>replace=T),col3=sample(c("A","B"),20,replace=T))</div>
<div>dados</div>
<div> </div>
<div> </div>
<div>#primeiro com o comando paste, vamos juntar a coluna 2 com a 3, criando os</div>
<div>AA AB e BB</div>
<div>dados$col4<-factor(paste(dados$col2,dados$col3,sep=""))</div>
<div> </div>
<div>#Depois como os walmes nos ensinou aqui na lista, a gente usa o match()</div>
<div>#para recodificar nos valores que queremos, no caso como vc falou</div>
<div> </div>
<div>levels(dados$col4)</div>
<div>recod<-c(0,1,1,2)</div>
<div>dados$col5<-recod[match(dados$col4,levels(dados$col4))]</div>
<div>dados</div>
<div> </div>
<div> </div>
<div>#agora que vc te todos os ingredientes, é so usar o comando table() para</div>
<div>fazer essa tabela</div>
<div>#eu fiz um exemplo de tabela com a coluna 5 e a coluna 5, mas pelo que vi</div>
<div>vc quer a coluna</div>
<div>#5 e os nomes das linhas, rownames(sua planilha), entao use os nomes da</div>
<div>linha na tabela</div>
<div>table(dados$col5,dados$col4)</div>
<div> </div>
<div>Espero que ajude.</div>
<div>Abraços</div>
<div> </div>
<div>Em 24 de outubro de 2012 09:16, <a href="mailto:fabrizzioconde@gmail.com" target="_blank">fabrizzioconde@gmail.com</a> <</div>
<div><a href="mailto:fabrizzioconde@gmail.com" target="_blank">fabrizzioconde@gmail.com</a>> escreveu:</div>
<div> </div>
<div>> Bom dia,</div>
<div>></div>
<div>> Existe algum script que faça o seguinte:</div>
<div>></div>
<div>> 1) Cria uma quinta coluna na matriz abaixo baseada na terceira e na quarta</div>
<div>> coluna DA seguinte forma: AA = 0, BB = 1 e AB = 2.</div>
<div>></div>
<div>> AA1 1 A B AA2 1 A A AA3 1 B B AA4 1 B B AA1 2 A A AA2 2 A B AA3 2 A B</div>
<div>> AA4 2 A A AA1 3 B B AA2 3 B B AA3 3 A A AA4 3 A A AA1 4 B B AA2 4 A B AA3</div>
<div>> 4 A A AA4 4 A B</div>
<div>></div>
<div>> Assim, a matriz se transformaria em:</div>
<div>></div>
<div>> AA1 1 A B 2 AA2 1 A A 0 AA3 1 B B 1 AA4 1 B B 1 AA1 2 A A 0 AA2 2 A B 2</div>
<div>> AA3 2 A B 2 AA4 2 A A 0 AA1 3 B B 1 AA2 3 B B 1 AA3 3 A A 0 AA4 3 A A 0</div>
<div>> AA1 4 B B 1 AA2 4 A B 2 AA3 4 A A 1 AA4 4 A B 2</div>
<div>></div>
<div>> 2) Após esse passo, tenho que eliminar as colunas 3 e 4 DA matriz acima</div>
<div>> (talvez em um novo dataframe) e redimensioná-la para o seguinte formato:</div>
<div>></div>
<div>> AA1 AA2 AA3 AA4 1 2 0 1 1 2 0 2 2 0 3 1 1 0 0 4 1 2 1 2</div>
<div>></div>
<div>> Ao final, preciso que cada coluna DA matriz acima seja encarada pelo R</div>
<div>> como uma variável (AA1, AA2, AA3, AA4), pois irei aplicar o pacote de</div>
<div>> regressão logística penalizada stepPlr e considerar essas variáveis</div>
<div>> preditoras.</div>
<div>></div>
<div>> Muito obrigado.</div>
<div>> Fabrízzio</div>
<div>> [image: FREE Christmas Animations for your email ? by IncrediMail!</div>
<div>> Click Here!]<<a href="http://www.incredimail.com/?id=620188&did=10500&ppd=2747" target="_blank">http://www.incredimail.com/?id=620188&did=10500&ppd=2747</a></div>
</div></div><div class="im"><div>201111071523,9,[TypeID],[IM_UPN2]&rui=139771782&sd=20121024></div>
<div>></div>
<div>> _______________________________________________</div>
<div>> R-br mailing list</div>
<div>> <a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a></div>
<div>> <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></div>
<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</div>
<div>> código mínimo reproduzível.</div>
<div>></div>
<div> </div>
<div> </div>
<div> </div>
<div>--</div>
<div>Grato</div>
<div>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://augustoribas.heliohost.org" target="_blank">http://augustoribas.heliohost.org</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a></div>
<div>-------------- Próxima Parte ----------</div>
<div>Um anexo em HTML foi limpo...</div>
<div>URL: <<a href="http://listas.inf.ufpr" target="_blank">http://listas.inf.ufpr</a></div>
</div><div class="im"><div>br/pipermail/r-br/attachments/20121024/96f8c562/attachment-0001.html></div>
<div>-------------- Próxima Parte ----------</div>
<div>Um anexo não-texto foi limpo...</div>
<div>Nome: xmas_girl_en.gif</div>
<div>Tipo: image/gif</div>
<div>Tamanho: 61041 bytes</div>
<div>Descrição: não disponível</div>
<div>URL: <<a href="http://listas.inf.ufpr" target="_blank">http://listas.inf.ufpr</a></div>
</div><div class="im"><div>br/pipermail/r-br/attachments/20121024/96f8c562/attachment-0001.gif></div>
<div> </div>
<div>------------------------------</div>
<div> </div>
<div>_______________________________________________</div>
<div>R-br mailing list</div>
<div><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a></div>
<div><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></div>
<div> </div>
<div> </div>
<div>Fim da Digest R-br, volume 20, assunto 30</div>
<div>*****************************************</div>
</div><div class="im"><div>-------------- Próxima Parte ----------</div>
<div>Um anexo em HTML foi limpo...</div>
</div><div>URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/e3a78863/attachment-0001.html" target="_blank">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/e3a78863/attachment-0001.html</a>></div>
<div class="im">
<div>-------------- Próxima Parte ----------</div>
<div>Um anexo não-texto foi limpo...</div>
<div>Nome: xmas_girl_en.gif</div>
<div>Tipo: image/gif</div>
<div>Tamanho: 61041 bytes</div>
<div>Descrição: não disponível</div>
</div><div>URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/e3a78863/attachment-0001.gif" target="_blank">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/e3a78863/attachment-0001.gif</a>></div>
<div> </div>
<div>------------------------------</div>
<div> </div>
<div>Message: 3</div>
<div>Date: Fri, 26 Oct 2012 13:43:13 -0300</div><div class="im">
<div>From: Augusto Ribas <<a href="mailto:ribas.aca@gmail.com" target="_blank">ribas.aca@gmail.com</a>></div>
<div>To: <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a></div>
<div>Subject: Re: [R-br] Transformação de dados no dataframe</div>
<div>Message-ID:</div>
</div><div> <<a href="mailto:CACMkfRxYhrSakx+OjZeB-_Drp44H=MpuYsnKRa-OaF8C5ZaDyA@mail.gmail.com" target="_blank">CACMkfRxYhrSakx+OjZeB-_Drp44H=MpuYsnKRa-OaF8C5ZaDyA@mail.gmail.com</a>></div>
<div>Content-Type: text/plain; charset="windows-1252"</div><div class="im">
<div> </div>
<div>Eu não entendi perfeitamente o que é o que, desculpe.</div>
<div>Vc não consegue fazer um exemplo de dados semelhante ao que eu fiz, e</div>
<div>colocar o nome das colunas o que é Caracteristica e o que é Individuo?</div>
<div> </div>
<div>Em 26 de outubro de 2012 12:38, <a href="mailto:fabrizzioconde@gmail.com" target="_blank">fabrizzioconde@gmail.com</a> <</div>
<div><a href="mailto:fabrizzioconde@gmail.com" target="_blank">fabrizzioconde@gmail.com</a>> escreveu:</div>
<div> </div>
<div>></div>
<div>> Caro Augusto,</div>
<div>></div>
</div><div>> O comando *table* do R faz uma contagem em fatores, assim, esse comando</div><div class="im">
<div>> não solucionou o meu problema, pois o que preciso fazer é reposicionar os</div>
<div>> dados na tabela abaixo:</div>
<div>></div>
<div>></div>
</div><div>> Característica A******</div>
<div>></div>
<div>> Indivíduo 1****</div>
<div>></div>
<div>> 0****</div>
<div>></div>
<div>> Característica B****</div>
<div>></div>
<div>> Indivíduo 1****</div>
<div>></div>
<div>> 1****</div>
<div>></div>
<div>> Característica C****</div>
<div>></div>
<div>> Indivíduo 1****</div>
<div>></div>
<div>> 2****</div>
<div>></div>
<div>> Característica A****</div>
<div>></div>
<div>> Indivíduo 2****</div>
<div>></div>
<div>> 2****</div>
<div>></div>
<div>> Característica B****</div>
<div>></div>
<div>> Indivíduo 2****</div>
<div>></div>
<div>> 0****</div>
<div>></div>
<div>> Característica C****</div>
<div>></div>
<div>> Indivíduo 2****</div>
<div>></div>
<div>> 1****</div>
<div>></div>
<div>> Tentei usar o comando *reshape* com o seguinte código:</div><div class="im">
<div>></div>
<div>> Wide <- reshape(dados, v.names = "col3", idvar = "col2", timevar = "col 1")</div>
<div>></div>
<div>> Mas esse comando está travando o R.</div>
<div>></div>
<div>> A tabela final que preciso é:</div>
<div>></div>
<div>></div>
</div><div>> ** **</div>
<div>></div>
<div>> Característica A****</div>
<div>></div>
<div>> Característica B****</div>
<div>></div>
<div>> Característica C****</div>
<div>></div>
<div>> Indivíduo 1****</div>
<div>></div>
<div>> 0****</div>
<div>></div>
<div>> 1****</div>
<div>></div>
<div>> 2****</div>
<div>></div>
<div>> Indivíduo 2****</div>
<div>></div>
<div>> 2****</div>
<div>></div>
<div>> 0****</div>
<div>></div>
<div>> 1****</div><div class="im">
<div>></div>
<div>> Li o help do comando table, mas não consegui adaptá-lo para resolver esse</div>
<div>> problema.</div>
<div>></div>
<div>> Será que terei que implementar uma função para realizar essa tarefa?</div>
<div>></div>
<div>> Abraços e muito obrigado pela ajuda e pela paciencia.</div>
<div>></div>
<div>> Fabrízzio Condé de Oliveira</div>
<div>></div>
</div><div>> *-------Original Message-------*</div>
<div>></div>
<div>> *From:* <a href="mailto:r-br-request@listas.c3sl.ufpr.br" target="_blank">r-br-request@listas.c3sl.ufpr.br</a></div>
<div>> *Date:* 10/24/12 12:00:14</div>
<div>> *To:* <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a></div>
<div>> *Subject:* Digest R-br, volume 20, assunto 30</div><div><div class="h5">
<div>></div>
<div>> Enviar submissões para a lista de discussão R-br para</div>
<div>> <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a></div>
<div>></div>
<div>> Para se cadastrar ou descadastrar via WWW, visite o endereço</div>
<div>> <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></div>
<div>> ou, via email, envie uma mensagem com a palavra 'help' no assunto ou</div>
<div>> corpo da mensagem para</div>
<div>> <a href="mailto:r-br-request@listas.c3sl.ufpr.br" target="_blank">r-br-request@listas.c3sl.ufpr.br</a></div>
<div>></div>
<div>> Você poderá entrar em contato com a pessoa que gerencia a lista pelo</div>
<div>> endereço</div>
<div>> <a href="mailto:r-br-owner@listas.c3sl.ufpr.br" target="_blank">r-br-owner@listas.c3sl.ufpr.br</a></div>
<div>></div>
<div>> Quando responder, por favor edite sua linha Assunto assim ela será</div>
<div>> mais específica que "Re: Contents of R-br digest..."</div>
<div>></div>
<div>></div>
<div>> Tópicos de Hoje:</div>
<div>></div>
<div>> 1. Re: Transformação de dados no dataframe (Augusto Ribas)</div>
<div>></div>
<div>></div>
<div>> ----------------------------------------------------------------------</div>
<div>></div>
<div>> Message: 1</div>
<div>> Date: Wed, 24 Oct 2012 09:50:12 -0300</div>
<div>> From: Augusto Ribas <<a href="mailto:ribas.aca@gmail.com" target="_blank">ribas.aca@gmail.com</a>></div>
<div>> To: <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a></div>
<div>> Subject: Re: [R-br] Transformação de dados no dataframe</div>
<div>> Message-ID:</div>
<div>> <<a href="mailto:CACMkfRyM6o+=mvtJ7GuQXn2xMiNYgGdo1Za0m0erZ6aw6Xc09g@mail.gmail.com" target="_blank">CACMkfRyM6o+=mvtJ7GuQXn2xMiNYgGdo1Za0m0erZ6aw6Xc09g@mail.gmail.com</a>></div>
<div>> Content-Type: text/plain; charset="windows-1252"</div>
<div>></div>
<div>> Vamos supor um exemplo de dados:</div>
<div>></div>
<div>> #dados de exemplo</div>
<div>></div>
<div>> dados<-data.frame(col1=round(runif(20,1,4)),col2=sample(c("A","B"),20,replace=T),col3=sample(c("A","B"),20,replace=T))</div>
<div>> dados</div>
<div>></div>
<div>></div>
<div>> #primeiro com o comando paste, vamos juntar a coluna 2 com a 3, criando os</div>
<div>> AA AB e BB</div>
<div>> dados$col4<-factor(paste(dados$col2,dados$col3,sep=""))</div>
<div>></div>
<div>> #Depois como os walmes nos ensinou aqui na lista, a gente usa o match()</div>
<div>> #para recodificar nos valores que queremos, no caso como vc falou</div>
<div>></div>
<div>> levels(dados$col4)</div>
<div>> recod<-c(0,1,1,2)</div>
<div>> dados$col5<-recod[match(dados$col4,levels(dados$col4))]</div>
<div>> dados</div>
<div>></div>
<div>></div>
<div>> #agora que vc te todos os ingredientes, é so usar o comando table() para</div>
<div>> fazer essa tabela</div>
<div>> #eu fiz um exemplo de tabela com a coluna 5 e a coluna 5, mas pelo que vi</div>
<div>> vc quer a coluna</div>
<div>> #5 e os nomes das linhas, rownames(sua planilha), entao use os nomes da</div>
<div>> linha na tabela</div>
<div>> table(dados$col5,dados$col4)</div>
<div>></div>
<div>> Espero que ajude.</div>
<div>> Abraços</div>
<div>></div>
<div>> Em 24 de outubro de 2012 09:16, <a href="mailto:fabrizzioconde@gmail.com" target="_blank">fabrizzioconde@gmail.com</a> <</div>
<div>> <a href="mailto:fabrizzioconde@gmail.com" target="_blank">fabrizzioconde@gmail.com</a>> escreveu:</div>
<div>></div>
<div>> > Bom dia,</div>
<div>> ></div>
<div>> > Existe algum script que faça o seguinte:</div>
<div>> ></div>
<div>> > 1) Cria uma quinta coluna na matriz abaixo baseada na terceira e na</div>
<div>> quarta</div>
<div>> > coluna DA seguinte forma: AA = 0, BB = 1 e AB = 2.</div>
<div>> ></div>
<div>> > AA1 1 A B AA2 1 A A AA3 1 B B AA4 1 B B AA1 2 A A AA2 2 A B AA3 2 A B</div>
<div>> > AA4 2 A A AA1 3 B B AA2 3 B B AA3 3 A A AA4 3 A A AA1 4 B B AA2 4 A B AA3</div>
<div>> > 4 A A AA4 4 A B</div>
<div>> ></div>
<div>> > Assim, a matriz se transformaria em:</div>
<div>> ></div>
<div>> > AA1 1 A B 2 AA2 1 A A 0 AA3 1 B B 1 AA4 1 B B 1 AA1 2 A A 0 AA2 2 A B</div>
<div>> 2</div>
<div>> > AA3 2 A B 2 AA4 2 A A 0 AA1 3 B B 1 AA2 3 B B 1 AA3 3 A A 0 AA4 3 A A 0</div>
<div>> > AA1 4 B B 1 AA2 4 A B 2 AA3 4 A A 1 AA4 4 A B 2</div>
<div>> ></div>
<div>> > 2) Após esse passo, tenho que eliminar as colunas 3 e 4 DA matriz acima</div>
<div>> > (talvez em um novo dataframe) e redimensioná-la para o seguinte formato:</div>
<div>> ></div>
<div>> > AA1 AA2 AA3 AA4 1 2 0 1 1 2 0 2 2 0 3 1 1 0 0 4 1 2 1 2</div>
<div>> ></div>
<div>> > Ao final, preciso que cada coluna DA matriz acima seja encarada pelo R</div>
<div>> > como uma variável (AA1, AA2, AA3, AA4), pois irei aplicar o pacote de</div>
<div>> > regressão logística penalizada stepPlr e considerar essas variáveis</div>
<div>> > preditoras.</div>
<div>> ></div>
<div>> > Muito obrigado.</div>
<div>> > Fabrízzio</div>
<div>> > [image: FREE Christmas Animations for your email ? by IncrediMail!</div>
<div>> > Click Here!]<</div>
<div>> <a href="http://www.incredimail.com/?id=620188&did=10500&ppd=2747,201111071523,9" target="_blank">http://www.incredimail.com/?id=620188&did=10500&ppd=2747,201111071523,9</a></div>
<div>> ,[TypeID],[IM_UPN2]&rui=139771782&sd=20121024></div>
<div>> ></div>
<div>> > _______________________________________________</div>
<div>> > R-br mailing list</div>
<div>> > <a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a></div>
<div>> > <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></div>
<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</div>
<div>> > código mínimo reproduzível.</div>
<div>> ></div>
<div>></div>
<div>></div>
<div>></div>
<div>> --</div>
<div>> Grato</div>
<div>> Augusto C. A. Ribas</div>
<div>></div>
<div>> Site Pessoal: <a href="http://augustoribas.heliohost.org" target="_blank">http://augustoribas.heliohost.org</a></div>
<div>> Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a></div>
<div>> -------------- Próxima Parte ----------</div>
<div>> Um anexo em HTML foi limpo...</div>
<div>> URL: <</div>
<div>> <a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121024/96f8c562/attachment-0001.html" target="_blank">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121024/96f8c562/attachment-0001.html</a></div>
<div>> ></div>
<div>> -------------- Próxima Parte ----------</div>
<div>> Um anexo não-texto foi limpo...</div>
<div>> Nome: xmas_girl_en.gif</div>
<div>> Tipo: image/gif</div>
<div>> Tamanho: 61041 bytes</div>
<div>> Descrição: não disponível</div>
<div>> URL: <</div>
<div>> <a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121024/96f8c562/attachment-0001.gif" target="_blank">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121024/96f8c562/attachment-0001.gif</a></div>
<div>> ></div>
<div>></div>
<div>> ------------------------------</div>
<div>></div>
<div>> _______________________________________________</div>
<div>> R-br mailing list</div>
<div>> <a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a></div>
<div>> <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></div>
<div>></div>
<div>></div>
<div>> Fim da Digest R-br, volume 20, assunto 30</div>
<div>> *****************************************</div>
<div>> [image: FREE Christmas Animations for your email ? by IncrediMail!</div>
</div></div><div>> Click Here!]<<a href="http://www.incredimail.com/?id=620188&did=10500&ppd=2747,201111071523,9" target="_blank">http://www.incredimail.com/?id=620188&did=10500&ppd=2747,201111071523,9</a>,[TypeID],[IM_UPN2]&rui=139771782&sd=20121026></div>
<div class="im">
<div>></div>
<div>> _______________________________________________</div>
<div>> R-br mailing list</div>
<div>> <a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a></div>
<div>> <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></div>
<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</div>
<div>> código mínimo reproduzível.</div>
<div>></div>
<div> </div>
<div> </div>
<div> </div>
<div>--</div>
<div>Grato</div>
<div>Augusto C. A. Ribas</div>
<div> </div>
</div><div>Site Pessoal: <a href="http://recologia.blogspot.com.br/" target="_blank">http://recologia.blogspot.com.br/</a><<a href="http://augustoribas.heliohost.org" target="_blank">http://augustoribas.heliohost.org</a>></div>
<div class="im">
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a></div>
<div>-------------- Próxima Parte ----------</div>
<div>Um anexo em HTML foi limpo...</div>
</div><div>URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/7ff2d7cb/attachment.html" target="_blank">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/7ff2d7cb/attachment.html</a>></div>
<div class="im">
<div>-------------- Próxima Parte ----------</div>
<div>Um anexo não-texto foi limpo...</div>
<div>Nome: xmas_girl_en.gif</div>
<div>Tipo: image/gif</div>
<div>Tamanho: 61041 bytes</div>
<div>Descrição: não disponível</div>
</div><div>URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/7ff2d7cb/attachment.gif" target="_blank">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/7ff2d7cb/attachment.gif</a>></div>
<div class="im">
<div> </div>
<div>------------------------------</div>
<div> </div>
<div>_______________________________________________</div>
<div>R-br mailing list</div>
<div><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a></div>
<div><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></div>
<div> </div>
<div> </div>
</div><div>Fim da Digest R-br, volume 20, assunto 38</div>
<div>*****************************************</div></div></td></tr>
<tr>
<td width="100%">
<table cellspacing="0" cellpadding="0" width="100%">
<tbody>
<tr>
<td width="100%"></td>
<td valign="bottom" align="middle"></td></tr></tbody></table></td></tr></tbody></table><div class="im"><span><a href="http://www.incredimail.com/?id=620189&did=10500&ppd=2748,201111071527,9,[TypeID],[IM_UPN2]&rui=139771782&sd=20121026" target="_blank"><span name="imgCache" border="0"><img border="0" alt="FREE Christmas Animations for your email – by IncrediMail! Click Here!" src="cid:704CC9DA-2BC4-4BD9-936E-EEA95D2A83B9"></span></a></span></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></div>