<br><div>Muito boa solução.!</div><br><div class="gmail_quote_attribution">On Nov 9 2018, at 7:54 pm, Jônatan por (R-br) <r-br@listas.c3sl.ufpr.br> wrote:</div><blockquote><br><div><div><div><div>Com os dados estruturados pelo Fernando, tentei com 2 alternativas:</div><div><br></div><div><div># versão com tidyverse</div></div><div>library(dplyr); library(lubridate)</div><div><div>res_dplyr <- dados %>%</div></div><div>  group_by(ano = year(Data), Local) %>%</div><div>  arrange(desc(Frequencia), desc(Data), desc(qtde)) %>%</div><div>  slice(1) %>%</div><div>  ungroup()</div><div>res_dplyr</div><div><br></div><div># versão base do R</div><div>res_base <- lapply(</div><div>  split(dados, f = list(dados$Local, year(dados$Data))),</div><div>  function(x) {</div><div>    o <- with(x, order(Frequencia, Data, qtde, decreasing = TRUE))</div><div>    x[o, ][1, ]</div><div>  }</div><div>)</div><div>res_base <- do.call(rbind, res_base)</div><div>res_base</div><div><br></div><div>Att.</div></div></div><br><div><div><div>On Thu, Nov 8, 2018 at 9:47 PM Edson Lira por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br" title="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:</div></div><blockquote><div><div><div><div><div><font style="font-size:16px"><font style="font-family:"times new roman", "new york", times, serif">###################CONTAGEM DE DOADORES###########################</font></font></div><div><font style="font-size:16px"><font style="font-family:"times new roman", "new york", times, serif">#COM ESSA ROTINA ABAIXO, VC ORDENA DO MAIOR PARA O MAIOR AS DUAS VARIÁVEIS</font></font></div><div><font style="font-size:16px"><font style="font-family:"times new roman", "new york", times, serif">d_cad0_10<- tip_doa[order(tip_doa$NUMEROGENTE,tip_doa$DATAHORADOACAO, decreasing=TRUE) ,]</font></font></div><div><br></div><div><font style="font-size:16px"><font style="font-family:"times new roman", "new york", times, serif">NA ROTINA ABAIXO VC MANTEM AS DUPLICADAS E MANTEM SOMENTE A DE MAIOR FREQUÊNCIA</font></font></div><div><div><font style="font-size:16px"><font style="font-family:"times new roman", "new york", times, serif">dc_0_10<- d_cad0_10[!duplicated(d_cad0_10$NUMEROGENTE),]</font></font></div></div><div><br></div><div><br></div><div><font style="font-size:16px"><font style="font-family:"times new roman", "new york", times, serif">USEI ESSA ROTINA EM UM BANCO DE DOADORES AQUI DE MANAUS PARA MANTER SOMENTE SOMENTE ELE UMA VEZ, E COMO ORDENEI ELE MANTINHA O PRIMEIRO REGISTRO DOS DUPLICADOS E O PRIMEIRO ERA O DE MAIOR FREQUÊNCIA. ACHO QUE ERA ISSO.</font></font></div><div><br></div><div><font style="font-size:16px"><font style="font-family:"times new roman", "new york", times, serif">TESTE ESSA.</font></font></div><div><br></div><div><br></div><br></div><div><font style="font-size:16px"><font style="font-family:"times new roman", "new york", times, serif">[  ]'s</font></font></div><div><div><font style="font-size:16px"><font style="font-family:"times new roman", "new york", times, serif">Prof. Edson Lira, Me</font></font></div><div><font style="font-size:16px"><font style="font-family:"times new roman", "new york", times, serif">Estatístico</font></font></div><div><font style="font-size:16px"><font style="font-family:"times new roman", "new york", times, serif">Manaus-Amazonas</font></font></div></div></div><div><br></div><div><br></div></div><div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Em quinta-feira, 8 de novembro de 2018 18:29:43 AMT, Fernando Souza por (R-br) <</font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="mailto:r-br@listas.c3sl.ufpr.br" title="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a></font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">> escreveu:</font></font></span></div><div><br></div><div><br></div><div><div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Cara criei esse comando que aproxima bem do que você deseja,</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Porém a última situaçao (Local=D) não estou conseguindo programar, veja se tem alguma idéia que possa complementar.</font></font></span></div><br><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">att</font></font></span></div><br><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">dados<-data.frame(Local=c('A','A','A','B','C','C','C','C','D','D'),Frequencia=c(2,2,1,3,5,5,5,5,3,4),Data=c("13/05/2015","13/05/2015","13/05/2015","13/05/2015","13/05/2015","10/05/2015","13/05/2015","13/05/2015","13/05/2015","13/05/2015"),qtde=c(500,700,700,400,300,400,400,900,550,500))</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">dados$Data <-as.Date(dados$Data,"%d/%m/%Y")</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">str(dados)</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">dados</font></font></span></div><br><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"># install.packages("plyr")</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">library(plyr)</font></font></span></div><br><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">arranjo<-function(x){</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">valido <- c()</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">for(i in 1:nrow(x)){</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">if(x[i,2]==max(x[,2])){</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">valido[i]<-1</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">if( x[i,3]>= max(x[,3]) & x[i,2]==max(x[,2])){</font></font></span></div><br><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">valido[i] <-1</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">}else{</font></font></span></div><br><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">valido[i] <- 0</font></font></span></div><br><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">}</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">if(x[i,4]>= max(x[,4])){</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">valido[i] <- 1</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">}else{</font></font></span></div><br><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">valido[i] <- 0</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">}</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">}else{</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">valido[i]=0</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">}</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">}</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">return(mutate(x,valido=valido))</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">}</font></font></span></div><br><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">ddply(dados,.(Local, Data),arranjo)</font></font></span></div><br><br><br><br><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">On Nov 7 2018, at 11:29 am, Yury Duarte por (R-br) <</font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="mailto:r-br@listas.c3sl.ufpr.br" title="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a></font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">> wrote:</font></font></span></div><blockquote><br><div><div><div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Olá Daniel!</font></font></span></div><div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Utilizei a abordagem que você sugeriu e criei dois laços para fazer a checagem.</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Ainda não está exatamente como gostaria mas o filtro já está sendo feito da maneira que preciso.</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Segue a estrutura utilizada. </font></font></span></div><div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Obrigado!</font></font></span></div><div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Abraços</font></font></span></div><div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">dados:</font></font></span></div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">area_id dia mes  ano frequencia valor</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">a  15   12 2012         10     5</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">a  22   12 2012         15    10</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">a  15   12 2012         12    15</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">a  24   11 2013         15    20</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">b   8   12 2013         10     5</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">b  14   10 2012         12    10</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">c   7   11 2012         15     5</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">c  19   11 2013         12    10</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">c  19   10 2014         12    15</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">c  19   10 2013         15    20</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">d   5   10 2014         10     5</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">d  23   10 2014         10    10</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">d   5   12 2012         10    15</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">d   5   12 2012         15    20</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">d   5   12 2013         12    25</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">d   6   11 2014         12    30</font></font></span></div></div><div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">estrutura:</font></font></span></div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">#--------------------Remover Objetos do R--------------------#</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">rm(list = ls())</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">set.seed(29031989)</font></font></span></div><div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">raiz = 'C:\\Users\\Desktop\\'</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">a = read.table(paste0(raiz, 'teste_classificacao_final.txt'), header = T, sep = '\t')</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">colunas = colnames(a)</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">locais = data.frame(unique(a$area_id))</font></font></span></div><div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">for (i in 1:length(locais[,1])){</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">  #nome = paste0("area_", locais[i,1])</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">  #area = assign(nome, a[which(a$area_id==locais[i,1]),])</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">  area = a[which(a$area_id==locais[i,1]),]</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">  anos = data.frame(unique(area$ano))</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">  </font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">  for (x in 1:length(anos[,1])) {</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">    area_ano = area[which(area$ano==anos[x,1]),]</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">    frequencia_max = max(area_ano$frequencia)</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">    valor_max = max(area_ano$valor)</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">    area_ano_freq = area_ano[which(area_ano$frequencia==frequencia_max),]</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">    area_ano_freq_val = area_ano_freq[which(area_ano_freq$frequencia==frequencia_max),]</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">    </font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">    write.table(area_ano_freq_val, paste0(raiz, 'teste', '.txt'), sep = "\t", append = T, col.names = F, row.names = F)</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">    </font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">  }</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">}</font></font></span></div><div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">b = read.table(paste0(raiz, 'teste.txt'), header = F, sep = '\t')</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">colnames(b) = colunas</font></font></span></div><div><div><div><div><br></div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Yury Duarte</font></font></span></div></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Engenheiro Agrônomo - ESALQ/USP</font></font></span></div></div></div></div><br></div></div></div></div><br><div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Em qua, 7 de nov de 2018 às 09:26, Daniel Guimarães Tiezzi por (R-br) <</font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="mailto:r-br@listas.c3sl.ufpr.br" title="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a></font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">> escreveu:</font></font></span></div></div><blockquote><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Uma opção eh usar Uma estrutura de repetição para checar as variaveis e retornar o valor q deseja</font></font></span></div><div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Daniel</font></font></span></div></div><br><div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">On Wed, 7 Nov 2018, 09:22 Yury Duarte por (R-br) <</font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="mailto:r-br@listas.c3sl.ufpr.br" title="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a></font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"> wrote:</font></font></span></div></div><blockquote><div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Bom dia colegas listeiros,</font></font></span></div><div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Edson, agradeço pela dica! Já tinha me esquecido da possibilidade de utilizar aggregate nos meus comandos. </font></font></span></div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Entretanto, tentei utilizar a função sugerida para resolver o problema mas não consegui adapta-la para a minha necessidade.</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Quando utilizo o aggregate ele me pede uma 'function' para ser aplicada aos dados, de acordo com a ordem de agrupamento estabelecida dentro do argumento 'by', mas não não consegui adaptar uma função que me retornasse um boleano de mesmo valor/significado da coluna 'valido' (que gerei manualmente para validar os resultados do código). Consegui agregar os locais por área e por data quando pedi para retornar a média das frequências ou das quantidades, mas isso não me ajuda muito no momento. </font></font></span></div></div><div><br></div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">aggregate(dados$local, by = list(dados$data), 'função')   </font></font></span></div></div><div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Desde já, agradeço pela ajuda de todos! </font></font></span></div><div><br><div><div><div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Yury Duarte</font></font></span></div></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Engenheiro Agrônomo - ESALQ/USP</font></font></span></div></div></div></div><br></div></div></div><br><div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Em ter, 6 de nov de 2018 às 18:21, Edson Lira por (R-br) <</font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="mailto:r-br@listas.c3sl.ufpr.br" title="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a></font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">> escreveu:</font></font></span></div></div><blockquote><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Dá uma olhada no aggregate</font></font></span></div><br><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature" title="https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature">Enviado do Yahoo Mail no Android</a></font></font></span></div><br><blockquote><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><span style="color:rgb(109, 0, 246)"><font style="font-family:Roboto, sans-serif"><div>Em ter, 6 6e nov 6e 2018 às 15:25, Yury Duarte por (R-br)</div><div><</font></span></font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><span style="color:rgb(109, 0, 246)"><font style="font-family:Roboto, sans-serif"><a href="mailto:r-br@listas.c3sl.ufpr.br" title="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a></font></span></font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><span style="color:rgb(109, 0, 246)"><font style="font-family:Roboto, sans-serif">> escreveu:</div></font></span></font></font></span></div><div><div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Boa tarde colegas listeiros, como vão?</font></font></span></div><div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Tenho um problema e estou com certa dificuldade em resolver de forma prática. Meu conjunto de dados é o seguinte:</font></font></span></div><div><div><div><table border="0" cellpadding="0" cellspacing="0" width="352" style="border-collapse:collapse;width:264pt"><colgroup span="1"><col span="1" width="64" style="width:48pt"><col span="1" width="74" style="width:56pt"><col span="1" width="75" style="width:56pt"><col span="1" width="75" style="width:56pt"><col span="1" width="64" style="width:48pt"></colgroup><tbody><tr height="20" style="min-height:15pt"><td colspan="1" rowspan="1" height="20" width="64" style="min-height:15pt;width:48pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">local</td><td colspan="1" rowspan="1" width="74" style="width:56pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">frequencia</td><td colspan="1" rowspan="1" width="75" style="width:56pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">data</td><td colspan="1" rowspan="1" width="75" style="width:56pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">quantidade</td><td colspan="1" rowspan="1" width="64" style="width:48pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><b>valido</b></td></tr><tr height="20" style="min-height:15pt"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">A</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">2</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">500,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><b>0</b></td></tr><tr height="20" style="min-height:15pt"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">A</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">2</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">700,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><b>1</b></td></tr><tr height="20" style="min-height:15pt"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">A</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">1</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">700,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><b>0</b></td></tr><tr height="20" style="min-height:15pt"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">B</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">3</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">400,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><b>1</b></td></tr><tr height="20" style="min-height:15pt"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">C</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">5</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">300,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><b>0</b></td></tr><tr height="20" style="min-height:15pt"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">C</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">5</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">10/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">400,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><b>0</b></td></tr><tr height="20" style="min-height:15pt"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">C</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">5</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">13/05/2016</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">400,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><b>1</b></td></tr><tr height="20" style="min-height:15pt"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">C</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">5</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">900,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><b>1</b></td></tr><tr height="20" style="min-height:15pt"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">D</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">3</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">550,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><b>0</b></td></tr><tr height="20" style="min-height:15pt"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">D</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">4</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">500,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><b>1</b></td></tr></tbody></table></div></div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Para esse conjunto, gostaria de gerar a coluna 'valida', que me classifica os dados da seguinte maneira: para cada local e para cada ano, retornar apenas o local de maior frequência, mais recente e de maior quantidade (nessa ordem).</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Pensei em gerar um objeto para cada local a partir do which(), mas como meu conjunto de dados tem mais de 150 mil linhas e mais de 2000 locais, achei que essa abordagem não seria muito prática nem rápida de ser processada. </font></font></span></div><div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Desde já, agradeço pela colaboração de todos!</font></font></span></div><div><br></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Att</font></font></span></div><div><br><div><div><div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Yury Duarte</font></font></span></div></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Engenheiro Agrônomo - ESALQ/USP</font></font></span></div></div></div></div></div></div></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">_______________________________________________</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">R-br mailing list</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="mailto:R-br@listas.c3sl.ufpr.br" title="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a></font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" title="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a></font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Leia o guia de postagem (</font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="http://www.leg.ufpr.br/r-br-guia" title="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a></font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">) e forne�a c�digo m�nimo reproduz�vel.</font></font></span></div></div></blockquote><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">_______________________________________________</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">R-br mailing list</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="mailto:R-br@listas.c3sl.ufpr.br" title="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a></font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" title="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a></font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Leia o guia de postagem (</font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="http://www.leg.ufpr.br/r-br-guia" title="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a></font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">) e forneça código mínimo reproduzível.</font></font></span></div></blockquote></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">_______________________________________________</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">R-br mailing list</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="mailto:R-br@listas.c3sl.ufpr.br" title="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a></font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" title="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a></font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Leia o guia de postagem (</font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="http://www.leg.ufpr.br/r-br-guia" title="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a></font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">) e forneça código mínimo reproduzível.</font></font></span></div></blockquote></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">_______________________________________________</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">R-br mailing list</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="mailto:R-br@listas.c3sl.ufpr.br" title="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a></font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" title="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a></font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Leia o guia de postagem (</font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="http://www.leg.ufpr.br/r-br-guia" title="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a></font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">) e forneça código mínimo reproduzível.</font></font></span></div></blockquote></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">_______________________________________________</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">R-br mailing list</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="mailto:R-br@listas.c3sl.ufpr.br" title="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a></font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" title="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a></font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Leia o guia de postagem (</font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="http://www.leg.ufpr.br/r-br-guia" title="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a></font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">) e forne�a c�digo m�nimo reproduz�vel.</font></font></span></div></div></blockquote></div></div></div><div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">_______________________________________________</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">R-br mailing list</font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="mailto:R-br@listas.c3sl.ufpr.br" title="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a></font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" title="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a></font></font></span></div><div><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Leia o guia de postagem (</font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><a href="http://www.leg.ufpr.br/r-br-guia" title="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a></font></font></span><span style="color:rgb(38, 40, 42)"><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">) e forne�a c�digo m�nimo reproduz�vel.</font></font></span></div></div></div></div></div></div><div>_______________________________________________</div><div>R-br mailing list</div><div><a href="mailto:R-br@listas.c3sl.ufpr.br" title="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a></div><div><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" title="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">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" title="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</div></blockquote></div><br><div><br></div><div>--</div><div><div><div><div><div><div><div><div><font style="font-family:arial">###############################################################</font></div><div><font style="font-size:small"><font style="font-family:arial">##  </font></font><span style="color:rgb(150, 150, 150)"><font style="font-size:11px"><font style="font-family:Verdana, Arial, Helvetica, sans-serif">Jônatan Dupont Tatsch</font></font></span></div></div><div><font style="font-size:small"><font style="font-family:arial">##  </font></font><span style="color:rgb(150, 150, 150)"><font style="font-size:10.9091px"><font style="font-family:Verdana, Arial, Helvetica, sans-serif">Professor do Departamento de Física</font></font></span></div><div><div><font style="font-size:small"><font style="font-family:arial">##  </font></font><span style="color:rgb(150, 150, 150)"><font style="font-size:10.9091px"><font style="font-family:Verdana, Arial, Helvetica, sans-serif">Centro de Ciências Exatas e Naturais (CCNE)</font></font></span></div></div><div><font style="font-size:small"><font style="font-family:arial">##  </font></font><span style="color:rgb(150, 150, 150)"><font style="font-size:10.9091px"><font style="font-family:Verdana, Arial, Helvetica, sans-serif">Universidade Federal de Santa Maria - UFSM</font></font></span></div><div><div><font style="font-size:small"><font style="font-family:arial">##  </font></font><span style="color:rgb(150, 150, 150)"><font style="font-size:11px"><font style="font-family:Verdana, Arial, Helvetica, sans-serif">Faixa de Camobi, Prédio 13 - Campus UFSM - Santa Maria, RS, Brasil - 97105-900</font></font></span></div></div><div><div><font style="font-size:small"><font style="font-family:arial">##  </font></font><font style="font-size:small"><font style="font-family:arial"><span style="color:rgb(150, 150, 150)"><font style="font-size:11px"><font style="font-family:Verdana, Arial, Helvetica, sans-serif">Telefone: +55(55)33012083</font></font></span></font></font></div></div><div><font style="font-size:small"><font style="font-family:arial">##  </font></font><font style="font-size:small"><font style="font-family:arial"><span style="color:rgb(150, 150, 150)"><font style="font-size:11px"><font style="font-family:Verdana, Arial, Helvetica, sans-serif"><a href="http://www.ufsm.br/meteorologia" title="http://www.ufsm.br/meteorologia">www.ufsm.br/meteorologia</a></font></font></span></font></font></div><div><font style="font-size:small"><font style="font-family:arial">###############################################################</font></font></div></div></div></div></div></div></div><div>_______________________________________________</div><div>R-br mailing list</div><div>R-br@listas.c3sl.ufpr.br</div><div>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</div><div>Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.</div></div></blockquote>