<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif">Humberto,</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">É provável que seja uma linha (ou mais) em duplicidade para os 4 campos: boat, ano, mes e dia.</div><div class="gmail_default" style=""><font face="verdana, sans-serif">?duplicated</font><br></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><font face="arial, helvetica, sans-serif" style="font-size:small"><div style="font-family:'trebuchet ms',sans-serif;display:inline"></div></font><font face="arial, helvetica, sans-serif" style="font-size:12.8px"><span style="font-size:small">================================================</span><br>Éder Comunello</font><div style="font-size:12.8px"><span style="font-family:arial,helvetica,sans-serif">Agronomist (UEM), MSc in Environ. Sciences (UEM)</span><font face="arial, helvetica, sans-serif"><br></font></div><div style="font-size:12.8px"><div style="font-size:small"><span style="font-family:arial,helvetica,sans-serif">DSc in Agricultural Systems Engineering (USP/Esalq)</span><br></div><div><span style="font-size:small">Brazilian Agricultural Research Corporation (</span><font face="arial, helvetica, sans-serif" style="font-size:small">Embrapa)</font></div><div><div><font face="arial, helvetica, sans-serif" style="font-size:small">Dourados, MS, Brazil </font><font face="arial, helvetica, sans-serif" size="2">|<O>|</font></div><div style="font-size:small"><span style="font-family:arial,helvetica,sans-serif">================================================</span><br></div></div></div><div style="font-size:small"><font face="arial, helvetica, sans-serif">GEO, </font>-22.2752, -54.8182, 408m<span style="font-family:arial,helvetica,sans-serif"><br></span></div><div style="font-size:12.8px"><span style="font-size:small;font-family:arial,helvetica,sans-serif">UTC-04:00 / DST: UTC-03:00</span></div><div><div><div><br></div><div><br></div></div><div style="font-size:small"><br></div></div></div></div></div></div></div></div></div></div></div>
<br><div class="gmail_quote">Em 12 de maio de 2016 10:09, Humberto Hazin <span dir="ltr"><<a href="mailto:hhazin@gmail.com" target="_blank">hhazin@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div lang="PT-BR" link="blue" vlink="purple"><div><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif">Bom dia Eder,<u></u><u></u></span></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"><u></u> <u></u></span></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif">Muito obrigado pela ajuda acredito que funcionara agora. Rodei teu exemplo e deu certo, porém quando rodei nos meus dados acusou um erro. Eu vou verificar o que esse erro. De toda forma, muito obrigado!<u></u><u></u></span></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"><u></u> <u></u></span></p><p class="MsoNormal" style="line-height:11.25pt"><span lang="EN-US" style="font-size:10.0pt;font-family:"Lucida Console";color:#c5060b">Error in `[<-.data.frame`(`*tmp*`, sel[ord], "lance", value = c(1L, 0L : replacement has 2 rows, data has 75201<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US" style="font-size:11.0pt;font-family:"Calibri",sans-serif"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="EN-US" style="font-size:11.0pt;font-family:"Calibri",sans-serif"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="EN-US" style="font-size:11.0pt;font-family:"Calibri",sans-serif">Humberto<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US" style="font-size:11.0pt;font-family:"Calibri",sans-serif"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="EN-US" style="font-size:11.0pt;font-family:"Calibri",sans-serif"><u></u> <u></u></span></p><p class="MsoNormal"><b><span style="font-size:11.0pt;font-family:"Calibri",sans-serif">De:</span></b><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"> <a href="mailto:ecomunel@gmail.com" target="_blank">ecomunel@gmail.com</a> [mailto:<a href="mailto:ecomunel@gmail.com" target="_blank">ecomunel@gmail.com</a>] <b>Em nome de </b>Éder Comunello<br><b>Enviada em:</b> quinta-feira, 12 de maio de 2016 08:23</span></p><div><div class="h5"><br><b>Para:</b> Humberto Hazin <<a href="mailto:hhazin@gmail.com" target="_blank">hhazin@gmail.com</a>><br><b>Cc:</b> <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a><br><b>Assunto:</b> Re: [R-br] Criar uma coluna de lancamentos de pesca<u></u><u></u></div></div><p></p><div><div class="h5"><p class="MsoNormal"><u></u> <u></u></p><div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif">Humberto, bom dia!<u></u><u></u></span></p></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif"><u></u> <u></u></span></p></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif">Era para o script fazer isso mesmo, porque até então não havia presumido que precisaria reiniciar a contagem com a mudança do ano. Fiz outra alteração no script para atender esse critério.<u></u><u></u></span></p></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif"><u></u> <u></u></span></p></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif">Via de regra, deve-se evitar aninhar instruções "for", mas acho que pode te servir como ponto de partida. Outros colegas da lista poderão te propor soluções mais elegantes...<u></u><u></u></span></p></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif"><u></u> <u></u></span></p></div><div><div><p class="MsoNormal"><span style="font-family:"Courier New"">### <code r></span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">df <- read.table(text=</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">"dia mes ano boat </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">13 1 2005 AGIOS.NIKOLAUS </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">10 1 2005 AGIOS.NIKOLAUS </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">11 1 2005 AGIOS.NIKOLAUS </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">12 1 2005 AGIOS.NIKOLAUS </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">9 1 2005 AGIOS.NIKOLAUS</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">10 1 2005 X </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">9 1 2005 X </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">12 1 2005 X </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">13 1 2005 Y </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">11 1 2005 Y</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">13 1 2006 Y </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">11 1 2006 Y", head=T, <a href="http://as.is" target="_blank">as.is</a>=T)</span><u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">df$lance <- NA</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">df</span><u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">for (boat in unique(df$boat)) {</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""> for (ano in unique(df$ano)) {</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""> sel <- which(df$boat==boat & df$ano==ano)</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""> ord <- with(df[sel,], order(dia, mes, ano))</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""> df[sel[ord], "lance"] <- 1:length(sel)</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""> }</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">}</span><u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">df</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># dia mes ano boat lance</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 1 13 1 2005 AGIOS.NIKOLAUS 5</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 2 10 1 2005 AGIOS.NIKOLAUS 2</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 3 11 1 2005 AGIOS.NIKOLAUS 3</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 4 12 1 2005 AGIOS.NIKOLAUS 4</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 5 9 1 2005 AGIOS.NIKOLAUS 1</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 6 10 1 2005 X 2</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 7 9 1 2005 X 1</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 8 12 1 2005 X 3</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 9 13 1 2005 Y 2</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 10 11 1 2005 Y 1</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 11 13 1 2006 Y 2</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 12 11 1 2006 Y 1</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">### </code></span><u></u><u></u></p></div></div></div><div><p class="MsoNormal"><br clear="all"><u></u><u></u></p><div><div><div><div><div><div><div><div><div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif"></span><span style="font-family:"Trebuchet MS",sans-serif"><u></u><u></u></span></p></div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">================================================</span><span style="font-size:9.5pt;font-family:"Arial",sans-serif"><br>Éder Comunello</span><u></u><u></u></p><div><p class="MsoNormal"><span style="font-size:9.5pt;font-family:"Arial",sans-serif">Agronomist (UEM), MSc in Environ. Sciences (UEM)</span><span style="font-size:9.5pt"><u></u><u></u></span></p></div><div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">DSc in Agricultural Systems Engineering (USP/Esalq)</span><u></u><u></u></p></div><div><p class="MsoNormal">Brazilian Agricultural Research Corporation (<span style="font-family:"Arial",sans-serif">Embrapa)</span><span style="font-size:9.5pt"><u></u><u></u></span></p></div><div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">Dourados, MS, Brazil </span><span style="font-size:10.0pt;font-family:"Arial",sans-serif">|<O>|</span><span style="font-size:9.5pt"><u></u><u></u></span></p></div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">================================================</span><u></u><u></u></p></div></div></div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">GEO, </span>-22.2752, -54.8182, 408m<u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">UTC-04:00 / DST: UTC-03:00</span><span style="font-size:9.5pt"><u></u><u></u></span></p></div><div><div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div></div><div><p class="MsoNormal"><u></u> <u></u></p></div></div></div></div></div></div></div></div></div></div></div><p class="MsoNormal"><u></u> <u></u></p><div><p class="MsoNormal">Em 11 de maio de 2016 19:17, Humberto Hazin <<a href="mailto:hhazin@gmail.com" target="_blank">hhazin@gmail.com</a>> escreveu:<u></u><u></u></p><blockquote style="border:none;border-left:solid #cccccc 1.0pt;padding:0cm 0cm 0cm 6.0pt;margin-left:4.8pt;margin-right:0cm"><div><div><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif">Ola eder,</span><u></u><u></u></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"> </span><u></u><u></u></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif">Mais uma vez obrigado e desculpa te incomodar de novo o problema é que esta um pouco estranho e diferente do teu resultado. Segue abaixo a partir do ponto amarelo deveria repetir 1 2 3...e não 16 17....</span><u></u><u></u></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"> </span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black"> </span><span lang="EN-US" style="font-size:10.0pt;font-family:"Lucida Console";color:black">set.day setyear setmonth boat lance</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20404 14 1999 12 ACECHADOR 1</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20422 15 1999 12 ACECHADOR 2</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20403 17 1999 12 ACECHADOR 3</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20467 18 1999 12 ACECHADOR 4</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20466 19 1999 12 ACECHADOR 5</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20465 20 1999 12 ACECHADOR 6</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20473 21 1999 12 ACECHADOR 7</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20469 22 1999 12 ACECHADOR 8</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20468 23 1999 12 ACECHADOR 9</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20475 25 1999 12 ACECHADOR 10</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20470 26 1999 12 ACECHADOR 11</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20471 27 1999 12 ACECHADOR 12</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20472 28 1999 12 ACECHADOR 13</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20474 29 1999 12 ACECHADOR 14</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black">20476 30 1999 12 ACECHADOR 15</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black;background:yellow">26605 7 2000 1 ACECHADOR 16</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black;background:yellow">26592 8 2000 1 ACECHADOR 17</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black;background:yellow">26601 9 2000 1 ACECHADOR 18</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black;background:yellow">26603 10 2000 1 ACECHADOR 19</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black;background:yellow">26589 11 2000 1 ACECHADOR 20</span><u></u><u></u></p><p class="MsoNormal" style="line-height:11.25pt;background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black;background:yellow">25991 12 2000 1 ACECHADOR 21</span><u></u><u></u></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"> </span><u></u><u></u></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"> </span><u></u><u></u></p><p class="MsoNormal"><b><span style="font-size:11.0pt;font-family:"Calibri",sans-serif">De:</span></b><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"> <a href="mailto:ecomunel@gmail.com" target="_blank">ecomunel@gmail.com</a> [mailto:<a href="mailto:ecomunel@gmail.com" target="_blank">ecomunel@gmail.com</a>] <b>Em nome de </b>Éder Comunello<br><b>Enviada em:</b> quarta-feira, 11 de maio de 2016 18:48<br><b>Para:</b> Humberto Hazin <<a href="mailto:hhazin@gmail.com" target="_blank">hhazin@gmail.com</a>><br><b>Cc:</b> <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a></span><u></u><u></u></p><div><div><p class="MsoNormal"><br><b>Assunto:</b> Re: [R-br] Criar uma coluna de lancamentos de pesca<u></u><u></u></p></div></div><div><div><p class="MsoNormal"> <u></u><u></u></p><div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif">Humberto,</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif"> </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif">Você poderia ordenar o banco antes de rodar:</span><span style="font-family:"Courier New""> df <- df[with(df, order(boat, ano, mes, dia)),]</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif"> </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif">Ou modificar o código. Uma possibilidade:</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif"> </span><u></u><u></u></p></div><div><div><p class="MsoNormal"> <u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">### <code r></span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">df <- read.table(text=</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">"dia mes ano boat </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">13 1 2005 AGIOS.NIKOLAUS </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">10 1 2005 AGIOS.NIKOLAUS </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">11 1 2005 AGIOS.NIKOLAUS </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">12 1 2005 AGIOS.NIKOLAUS </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">9 1 2005 AGIOS.NIKOLAUS</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">10 1 2005 X </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">9 1 2005 X </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">12 1 2005 X </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">13 1 2005 Y </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">11 1 2005 Y", head=T, <a href="http://as.is" target="_blank">as.is</a>=T)</span><u></u><u></u></p></div><div><p class="MsoNormal"> <u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">df$lance <- NA</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">df</span><u></u><u></u></p></div><div><p class="MsoNormal"> <u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">for (boat in unique(df$boat)) {</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""> sel <- which(df$boat==boat)</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""> ord <- with(df[sel,], order(dia, mes, ano))</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""> df[sel[ord], "lance"] <- 1:length(sel)</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">}</span><u></u><u></u></p></div><div><p class="MsoNormal"> <u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">df</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># dia mes ano boat lance</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 1 13 1 2005 AGIOS.NIKOLAUS 5</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 2 10 1 2005 AGIOS.NIKOLAUS 2</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 3 11 1 2005 AGIOS.NIKOLAUS 3</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 4 12 1 2005 AGIOS.NIKOLAUS 4</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 5 9 1 2005 AGIOS.NIKOLAUS 1</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 6 10 1 2005 X 2</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 7 9 1 2005 X 1</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 8 12 1 2005 X 3</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 9 13 1 2005 Y 2</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 10 11 1 2005 Y 1</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">### </code></span><u></u><u></u></p></div><div><p class="MsoNormal"> <u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif"> </span><u></u><u></u></p></div></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif"> </span><u></u><u></u></p></div><div><p class="MsoNormal"><br clear="all"><u></u><u></u></p><div><div><div><div><div><div><div><div><div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif"></span><u></u><u></u></p></div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">================================================</span><span style="font-size:9.5pt;font-family:"Arial",sans-serif"><br>Éder Comunello</span><u></u><u></u></p><div><p class="MsoNormal"><span style="font-size:9.5pt;font-family:"Arial",sans-serif">Agronomist (UEM), MSc in Environ. Sciences (UEM)</span><u></u><u></u></p></div><div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">DSc in Agricultural Systems Engineering (USP/Esalq)</span><u></u><u></u></p></div><div><p class="MsoNormal">Brazilian Agricultural Research Corporation (<span style="font-family:"Arial",sans-serif">Embrapa)</span><u></u><u></u></p></div><div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">Dourados, MS, Brazil </span><span style="font-size:10.0pt;font-family:"Arial",sans-serif">|<O>|</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">================================================</span><u></u><u></u></p></div></div></div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">GEO, </span>-22.2752, -54.8182, 408m<u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">UTC-04:00 / DST: UTC-03:00</span><u></u><u></u></p></div><div><div><div><p class="MsoNormal"> <u></u><u></u></p></div><div><p class="MsoNormal"> <u></u><u></u></p></div></div><div><p class="MsoNormal"> <u></u><u></u></p></div></div></div></div></div></div></div></div></div></div></div><p class="MsoNormal"> <u></u><u></u></p><div><p class="MsoNormal">Em 11 de maio de 2016 14:39, Humberto Hazin <<a href="mailto:hhazin@gmail.com" target="_blank">hhazin@gmail.com</a>> escreveu:<u></u><u></u></p><blockquote style="border:none;border-left:solid #cccccc 1.0pt;padding:0cm 0cm 0cm 6.0pt;margin-left:4.8pt;margin-top:5.0pt;margin-right:0cm;margin-bottom:5.0pt"><div><div><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif">Muito obrigado Rodrigo e Elder,</span><u></u><u></u></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif">parcialmente o problema foi resolvido, entretanto olhando o resultado abaixo do código do Elder no meu banco de dados teria que estar classificado dia mês ano barco para que a sequência de lances darem certos correto? Ou pode ser incluída no código? Olhando o exemplo que esta em amarelo por exemplo o lance 3 deveria ser o lance 2.</span><u></u><u></u></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"> </span><u></u><u></u></p><pre style="line-height:11.25pt;background:white"><span style="font-family:"Lucida Console";color:black"> </span><span lang="EN-US" style="font-family:"Lucida Console";color:black">set.day setyear setmonth boat lance</span><u></u><u></u></pre><pre style="line-height:11.25pt;background:white"><span lang="EN-US" style="font-family:"Lucida Console";color:black;background:yellow">1 2 1978 8 SUMIYOSHI.MARU.32 1</span><u></u><u></u></pre><pre style="line-height:11.25pt;background:white"><span lang="EN-US" style="font-family:"Lucida Console";color:black">2 4 1978 8 SEIKO.MARU.8 1</span><u></u><u></u></pre><pre style="line-height:11.25pt;background:white"><span lang="EN-US" style="font-family:"Lucida Console";color:black;background:yellow">3 16 1978 4 SUMIYOSHI.MARU.32 2</span><u></u><u></u></pre><pre style="line-height:11.25pt;background:white"><span lang="EN-US" style="font-family:"Lucida Console";color:black;background:yellow">4 13 1978 4 SUMIYOSHI.MARU.32 3</span><u></u><u></u></pre><pre style="line-height:11.25pt;background:white"><span lang="EN-US" style="font-family:"Lucida Console";color:black">5 23 1978 9 SEIKO.MARU.8 2</span><u></u><u></u></pre><pre style="line-height:11.25pt;background:white"><span lang="EN-US" style="font-family:"Lucida Console";color:black">6 7 1978 10 SUMIYOSHI.MARU.32 4</span><u></u><u></u></pre><pre style="line-height:11.25pt;background:white"><span style="font-family:"Lucida Console";color:black">7 27 1978 1 SUMIYOSHI.MARU.32 5</span><u></u><u></u></pre><pre style="line-height:11.25pt;background:white"><span style="font-family:"Lucida Console";color:black">8 10 1978 1 SUMIYOSHI.MARU.8 1</span><u></u><u></u></pre><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"> </span><u></u><u></u></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"> </span><u></u><u></u></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"> </span><u></u><u></u></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"> </span><u></u><u></u></p><p class="MsoNormal"><b><span style="font-size:11.0pt;font-family:"Calibri",sans-serif">De:</span></b><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"> R-br [mailto:<a href="mailto:r-br-bounces@listas.c3sl.ufpr.br" target="_blank">r-br-bounces@listas.c3sl.ufpr.br</a>] <b>Em nome de </b>Éder Comunello<br><b>Enviada em:</b> quarta-feira, 11 de maio de 2016 11:23<br><b>Para:</b> <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a><br><b>Assunto:</b> Re: [R-br] Criar uma coluna de lancamentos de pesca</span><u></u><u></u></p><div><div><p class="MsoNormal"> <u></u><u></u></p><div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif">Humberto, bom dia!</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif"> </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif">Segue uma uma sugestão, sem considerar que possa haver duplicidade...</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Verdana",sans-serif"> </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">### <code r></span><u></u><u></u></p></div><div><div><p class="MsoNormal"><span style="font-family:"Courier New"">df <- read.table(text=</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">"dia mes ano boat </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">9 1 2005 AGIOS.NIKOLAUS </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">10 1 2005 AGIOS.NIKOLAUS </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">11 1 2005 AGIOS.NIKOLAUS </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">12 1 2005 AGIOS.NIKOLAUS </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">13 1 2005 AGIOS.NIKOLAUS</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">9 1 2005 X </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">10 1 2005 X </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">11 1 2005 X </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">12 1 2005 Y </span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">13 1 2005 Y", head=T, <a href="http://as.is" target="_blank">as.is</a>=T)</span><u></u><u></u></p></div><div><p class="MsoNormal"> <u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">df$lance <- NA</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">df</span><u></u><u></u></p></div><div><p class="MsoNormal"> <u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">for (boat in unique(df$boat)) {</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""> sel <- which(df$boat==boat)</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""> df[sel, "lance"] <- 1:length(sel)</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">}</span><u></u><u></u></p></div><div><p class="MsoNormal"> <u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">df</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># dia mes ano boat lance</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 1 9 1 2005 AGIOS.NIKOLAUS 1</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 2 10 1 2005 AGIOS.NIKOLAUS 2</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 3 11 1 2005 AGIOS.NIKOLAUS 3</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 4 12 1 2005 AGIOS.NIKOLAUS 4</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 5 13 1 2005 AGIOS.NIKOLAUS 5</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 6 9 1 2005 X 1</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 7 10 1 2005 X 2</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 8 11 1 2005 X 3</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 9 12 1 2005 Y 1</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""># 10 13 1 2005 Y 2</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">### </code></span><u></u><u></u></p></div></div></div><div><p class="MsoNormal"><br clear="all"><u></u><u></u></p><div><div><div><div><div><div><div><div><div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif"></span><u></u><u></u></p></div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">================================================</span><span style="font-size:9.5pt;font-family:"Arial",sans-serif"><br>Éder Comunello</span><u></u><u></u></p><div><p class="MsoNormal"><span style="font-size:9.5pt;font-family:"Arial",sans-serif">Agronomist (UEM), MSc in Environ. Sciences (UEM)</span><u></u><u></u></p></div><div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">DSc in Agricultural Systems Engineering (USP/Esalq)</span><u></u><u></u></p></div><div><p class="MsoNormal">Brazilian Agricultural Research Corporation (<span style="font-family:"Arial",sans-serif">Embrapa)</span><u></u><u></u></p></div><div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">Dourados, MS, Brazil </span><span style="font-size:10.0pt;font-family:"Arial",sans-serif">|<O>|</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">================================================</span><u></u><u></u></p></div></div></div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">GEO, </span>-22.2752, -54.8182, 408m<u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Arial",sans-serif">UTC-04:00 / DST: UTC-03:00</span><u></u><u></u></p></div><div><div><div><p class="MsoNormal"> <u></u><u></u></p></div><div><p class="MsoNormal"> <u></u><u></u></p></div></div><div><p class="MsoNormal"> <u></u><u></u></p></div></div></div></div></div></div></div></div></div></div></div><p class="MsoNormal"> <u></u><u></u></p><div><p class="MsoNormal">Em 11 de maio de 2016 09:37, Humberto Hazin <<a href="mailto:hhazin@gmail.com" target="_blank">hhazin@gmail.com</a>> escreveu:<u></u><u></u></p><blockquote style="border:none;border-left:solid #cccccc 1.0pt;padding:0cm 0cm 0cm 6.0pt;margin-left:4.8pt;margin-top:5.0pt;margin-right:0cm;margin-bottom:5.0pt"><div><div><p class="MsoNormal">Olá pessoal,<u></u><u></u></p><p class="MsoNormal"> <u></u><u></u></p><p class="MsoNormal">Estou precisando criar uma coluna chamada lances. Onde cada lance corresponde a um dia, mês, ano e barco conforme o exemplo abaixo:<u></u><u></u></p><p class="MsoNormal"> <u></u><u></u></p><table border="0" cellspacing="0" cellpadding="0" width="327" style="width:245.0pt;border-collapse:collapse"><tbody><tr style="height:15.0pt"><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black"> dia</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">mes</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">ano</span><u></u><u></u></p></td><td width="135" nowrap valign="bottom" style="width:101.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">boat</span><u></u><u></u></p></td></tr><tr style="height:15.0pt"><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">9</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">1</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">2005</span><u></u><u></u></p></td><td width="135" nowrap valign="bottom" style="width:101.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">AGIOS.NIKOLAUS</span><u></u><u></u></p></td></tr><tr style="height:15.0pt"><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">10</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">1</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">2005</span><u></u><u></u></p></td><td width="135" nowrap valign="bottom" style="width:101.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">AGIOS.NIKOLAUS</span><u></u><u></u></p></td></tr><tr style="height:15.0pt"><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">11</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">1</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">2005</span><u></u><u></u></p></td><td width="135" nowrap valign="bottom" style="width:101.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">AGIOS.NIKOLAUS</span><u></u><u></u></p></td></tr><tr style="height:15.0pt"><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">12</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">1</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">2005</span><u></u><u></u></p></td><td width="135" nowrap valign="bottom" style="width:101.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">AGIOS.NIKOLAUS</span><u></u><u></u></p></td></tr><tr style="height:15.0pt"><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">13</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">1</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">2005</span><u></u><u></u></p></td><td width="135" nowrap valign="bottom" style="width:101.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">AGIOS.NIKOLAUS</span><u></u><u></u></p></td></tr></tbody></table><p class="MsoNormal"> <u></u><u></u></p><p class="MsoNormal"> <u></u><u></u></p><p class="MsoNormal">Eu gostaria que a tabela ficasse dessa forma aqui <u></u><u></u></p><p class="MsoNormal"> <u></u><u></u></p><table border="0" cellspacing="0" cellpadding="0" width="391" style="width:293.0pt;border-collapse:collapse"><tbody><tr style="height:15.0pt"><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">dia</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">mes</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">ano</span><u></u><u></u></p></td><td width="135" nowrap valign="bottom" style="width:101.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">boat</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">Lance</span><u></u><u></u></p></td></tr><tr style="height:15.0pt"><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">9</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">1</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">2005</span><u></u><u></u></p></td><td width="135" nowrap valign="bottom" style="width:101.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">AGIOS.NIKOLAUS</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">1</span><u></u><u></u></p></td></tr><tr style="height:15.0pt"><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">10</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">1</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">2005</span><u></u><u></u></p></td><td width="135" nowrap valign="bottom" style="width:101.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">AGIOS.NIKOLAUS</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">2</span><u></u><u></u></p></td></tr><tr style="height:15.0pt"><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">11</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">1</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">2005</span><u></u><u></u></p></td><td width="135" nowrap valign="bottom" style="width:101.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">AGIOS.NIKOLAUS</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">3</span><u></u><u></u></p></td></tr><tr style="height:15.0pt"><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">12</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">1</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">2005</span><u></u><u></u></p></td><td width="135" nowrap valign="bottom" style="width:101.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">AGIOS.NIKOLAUS</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">4</span><u></u><u></u></p></td></tr><tr style="height:15.0pt"><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">13</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">1</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">2005</span><u></u><u></u></p></td><td width="135" nowrap valign="bottom" style="width:101.0pt;background:yellow;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal"><span style="color:black">AGIOS.NIKOLAUS</span><u></u><u></u></p></td><td width="64" nowrap valign="bottom" style="width:48.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt"><p class="MsoNormal" align="right" style="text-align:right"><span style="color:black">5</span><u></u><u></u></p></td></tr></tbody></table><p class="MsoNormal"> <u></u><u></u></p><p class="MsoNormal"> <u></u><u></u></p><p class="MsoNormal">Agradeço desde já<u></u><u></u></p><p class="MsoNormal"><span style="color:#888888"> </span><u></u><u></u></p><p class="MsoNormal"><span style="color:#888888">Humberto</span><u></u><u></u></p><p class="MsoNormal"><span style="color:#888888"> </span><u></u><u></u></p><p class="MsoNormal"><span style="color:#888888"> </span><u></u><u></u></p><p class="MsoNormal"><span style="color:#888888"> </span><u></u><u></u></p><p class="MsoNormal"><span style="color:#888888"> </span><u></u><u></u></p></div></div><p class="MsoNormal"><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.<u></u><u></u></p></blockquote></div><p class="MsoNormal"> <u></u><u></u></p></div></div></div></div></div></blockquote></div><p class="MsoNormal"> <u></u><u></u></p></div></div></div></div></div></div></blockquote></div><p class="MsoNormal"><u></u> <u></u></p></div></div></div></div></div></blockquote></div><br></div>