<html>
  <head>
    <meta content="text/html; charset=utf-8" http-equiv="Content-Type">
  </head>
  <body bgcolor="#FFFFFF" text="#000000">
    Muito obrigado Éder e Manuel, faltou o pacote httr,<br>
    <br>
    Abraços,<br>
    <pre class="moz-signature" cols="72">-- 
======================================================================
Alexandre dos Santos
Proteção Florestal 
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial 
Cáceres - MT                      CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM)   (+55) 65 9686-6970 (VIVO)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a> 
        <a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a> 
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
OrcID: orcid.org/0000-0001-8232-6722 
Researchgate: <a class="moz-txt-link-freetext" href="https://www.researchgate.net/profile/Alexandre_Santos10">https://www.researchgate.net/profile/Alexandre_Santos10</a>                       
LinkedIn: <a class="moz-txt-link-freetext" href="https://br.linkedin.com/in/alexandre-dos-santos-87961635">https://br.linkedin.com/in/alexandre-dos-santos-87961635</a>
======================================================================
</pre>
    <div class="moz-cite-prefix">Em 21/01/2016 21:48, Éder Comunello
      escreveu:<br>
    </div>
    <blockquote
cite="mid:CABmC8gmPQiAghivWzqOtYk+o6+t2zmAtbfqjWAPZ08eCXQ6ZeA@mail.gmail.com"
      type="cite">
      <div dir="ltr">
        <div class="gmail_default" style=""><font face="verdana,
            sans-serif">Alexandre,</font></div>
        <div class="gmail_default" style=""><font face="verdana,
            sans-serif"><br>
          </font></div>
        <div class="gmail_default" style=""><font face="verdana,
            sans-serif">Tente a seguinte linha:</font></div>
        <div class="gmail_default" style=""><font face="verdana,
            sans-serif"><br>
          </font></div>
        <div class="gmail_default" style=""><font face="verdana,
            sans-serif">l</font><font face="monospace, monospace">apply(lista,
            function(x) aggregate(x[,7:8], by=list(x[,2], x[,5]), mean))
          </font><font face="verdana, sans-serif"> </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"><font style="font-size:small"
                        face="arial, helvetica, sans-serif">
                        <div style="font-family:'trebuchet
                          ms',sans-serif;display:inline">​</div>
                        ================================================<br>
                        Éder Comunello</font>
                      <div style="font-size:small"><span
                          style="font-family:arial,helvetica,sans-serif">PhD
                          Student in Agricultural Systems
                          Engineering (USP/Esalq)</span><br>
                      </div>
                      <div><span style="font-size:small">Brazilian
                          Agricultural Research Corporation (</span><font
                          style="font-size:small" face="arial,
                          helvetica, sans-serif">Embrapa)</font>
                        <div style="font-size:small"><font face="arial,
                            helvetica, sans-serif">Dourados, MS, Brazil
                            [</font>22 16.5'S, 54 49.0'W<span
                            style="font-family:arial,helvetica,sans-serif">]</span></div>
                        <div>
                          <div><br>
                          </div>
                          <div><br>
                          </div>
                        </div>
                        <div style="font-size:small"><br>
                        </div>
                      </div>
                    </div>
                  </div>
                </div>
              </div>
            </div>
          </div>
        </div>
        <br>
        <div class="gmail_quote">Em 21 de janeiro de 2016 17:55, Manoel
          Galdino <span dir="ltr"><<a moz-do-not-send="true"
              href="mailto:mcz.fea@gmail.com" target="_blank">mcz.fea@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 dir="ltr">
              <div>Nem consigo executar sua função de begar o banco, diz
                q não existe GET<br>
                <br>
              </div>
              cheguei a carrega o pacote XML, mas tbm não funfou<br>
            </div>
            <div class="HOEnZb">
              <div class="h5">
                <div class="gmail_extra"><br>
                  <div class="gmail_quote">2016-01-21 18:28 GMT-02:00
                    ASANTOS <span dir="ltr"><<a
                        moz-do-not-send="true"
                        href="mailto:alexandresantosbr@yahoo.com.br"
                        target="_blank"><a class="moz-txt-link-abbreviated" href="mailto:alexandresantosbr@yahoo.com.br">alexandresantosbr@yahoo.com.br</a></a>></span>:<br>
                    <blockquote class="gmail_quote" style="margin:0 0 0
                      .8ex;border-left:1px #ccc solid;padding-left:1ex">
                      <div bgcolor="#FFFFFF" text="#000000"> Éder,<br>
                        <br>
                           A sua solução não funcionou com meu exemplo
                        real e não consigo achar o problema, sendo que:<br>
                        <br>
                        ##  Função de leitura do banco de dados <br>
                        readFE<- function (x, URL = ""){<br>
                        FILE <- GET(url=URL)<br>
                             tables <- getNodeSet(htmlParse(FILE),
                        "//table") <br>
                             FE_tab <- readHTMLTable(tables[[1]], <br>
                                                header =
                        c("empresa","desc_projeto","desc_regiao", <br>
                                                          
                        "cadastrador_por","cod_talhao","descricao", <br>
                                                          
                        "formiga_area","qtd_destruido","latitude", <br>
                                                          
                        "longitude","data_cadastro"), <br>
                                                colClasses =
                        c("character","character","character", <br>
                                                              
                        "character","numeric","character", <br>
                                                              
                        "numeric","numeric","numeric", <br>
                                                              
                        "numeric","character"), <br>
                                                trim = TRUE,
                        stringsAsFactors = FALSE <br>
                        )     <br>
                             x<-NULL<br>
                             results <- x<br>
                             x<-FE_tab[-(1),]<br>
                             results <- x<br>
                            
                        results<-results[!apply(results,1,function(x){any(x=="(NULL)")}),]<br>
                             results<br>
                        }<br>
                        #--#<br>
                        tableFE<-readFE(URL=<a moz-do-not-send="true"
href="https://www.dropbox.com/s/znmr0lwda2y6fc5/BD_teste2.html?dl=1"
                          target="_blank">"https://www.dropbox.com/s/znmr0lwda2y6fc5/BD_teste2.html?dl=1"</a>)<br>
                        tableFE<-tableFE[1:163,1:11]<br>
                        head(tableFE)<br>
                        <br>
                        ##Agregando os resultados<br>
                        lista <- split(tableFE, tableFE$descricao)<br>
                        lapply(lista, function(x) aggregate(x[,7:8],
                        by=list(x[,2]), mean))  ## Não funciona<br>
                        <br>
                        <br>
                        mas se eu faço item por item funciona e não sei
                        porque, sendo:<br>
                        <br>
                        aggregate(lista$`Psilideo-de-Concha`[,7:8],
                        by=list(lista$`Psilideo-de-Concha`[,2],lista$`Psilideo-de-Concha`[,5]),
                        mean)<br>
                        <br>
                        Poderia me dar mais um help?<br>
                        <br>
                        Obrigado,<br>
                        <br>
                        Abraços<span><br>
                          <pre cols="72">-- 
======================================================================
Alexandre dos Santos
Proteção Florestal 
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial 
Cáceres - MT                      CEP: 78.200-000
Fone: <a moz-do-not-send="true" href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM)   <a moz-do-not-send="true" href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)
<a moz-do-not-send="true" href="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a> 
        <a moz-do-not-send="true" href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.br</a> 
Lattes: <a moz-do-not-send="true" href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/1360403201088680</a>
OrcID: <a moz-do-not-send="true" href="http://orcid.org/0000-0001-8232-6722" target="_blank">orcid.org/0000-0001-8232-6722</a> 
Researchgate: <a moz-do-not-send="true" href="https://www.researchgate.net/profile/Alexandre_Santos10" target="_blank">https://www.researchgate.net/profile/Alexandre_Santos10</a>                       
LinkedIn: <a moz-do-not-send="true" href="https://br.linkedin.com/in/alexandre-dos-santos-87961635" target="_blank">https://br.linkedin.com/in/alexandre-dos-santos-87961635</a>
======================================================================
</pre>
                        </span>
                        <div>
                          <div>
                            <div>Em 21/01/2016 13:37, Éder Comunello
                              escreveu:<br>
                            </div>
                          </div>
                        </div>
                        <blockquote type="cite">
                          <div>
                            <div>
                              <div dir="ltr">
                                <div class="gmail_default"
                                  style="font-family:verdana,sans-serif">Senhores,
                                  boa tarde!</div>
                                <div class="gmail_default"
                                  style="font-family:verdana,sans-serif"><br>
                                </div>
                                <div class="gmail_default"
                                  style="font-family:verdana,sans-serif">Também
                                  não entendi direito. Mas talvez a
                                  ideia abaixo possa fazer algum
                                  sentido... </div>
                                <div class="gmail_default"
                                  style="font-family:verdana,sans-serif"><br>
                                </div>
                                <div class="gmail_default">
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">###
                                      <code r></font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">tableFE

                                      <- structure(list(Bichos =
                                      structure(c(2L, 1L, 3L, 1L, 3L,
                                      2L, 3L, </font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">2L,
                                      1L, 3L, 1L, 3L, 2L, 3L, 3L),
                                      .Label = c("Barata", "Besouros", </font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">"Formiga"),

                                      class = "factor"), Talhao = c(73,
                                      15, 74, 75, 15, </font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">15,
                                      15, 73, 15, 15, 73, 15, 73, 74,
                                      74), Projeto = structure(c(1L, </font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">3L,
                                      2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L,
                                      3L, 2L, 1L, 3L, 2L), .Label =
                                      c("Abre Campo", </font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">"Vitoria",

                                      "Volta Redonda"), class =
                                      "factor"), Injuria = c(25, </font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">100,
                                      0, 25, 0, 100, 0, 50, 25, 0, 25,
                                      0, 25, 0, 0), Area = c(0, </font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">0,
                                      12.5, 0, 7.5, 0, 1.5, 0, 0, 23.8,
                                      0, 5.3, 0, 2, 11.3)), .Names =
                                      c("Bichos", </font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">"Talhao",

                                      "Projeto", "Injuria", "Area"),
                                      row.names = c(NA, -15L</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">),
                                      class = "data.frame")</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace"><br>
                                    </font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">lista
                                      <- split(tableFE,
                                      tableFE$Bichos); lista</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace"><br>
                                    </font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">lapply(lista,

                                      function(x) aggregate(x[,4:5],
                                      by=list(x$Projeto), mean))</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">#
                                      $Barata</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">#    
                                          Group.1 Injuria Area</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace"># 1  
                                       Abre Campo    25.0    0</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace"># 2  
                                          Vitoria    25.0    0</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace"># 3
                                      Volta Redonda    62.5    0</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace"># </font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">#
                                      $Besouros</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">#    
                                          Group.1 Injuria Area</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace"># 1  
                                       Abre Campo      25    0</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace"># 2  
                                          Vitoria     100    0</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace"># 3
                                      Volta Redonda      50    0</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace"># </font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">#
                                      $Formiga</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">#    
                                          Group.1 Injuria  Area</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace"># 1  
                                       Abre Campo       0 12.65</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace"># 2  
                                          Vitoria       0  9.70</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace"># 3
                                      Volta Redonda       0  4.75</font></div>
                                  <div class="gmail_default"><font
                                      face="monospace, monospace">###
                                      </code></font></div>
                                </div>
                              </div>
                              <div class="gmail_extra"><br clear="all">
                                <div>
                                  <div>
                                    <div dir="ltr">
                                      <div>
                                        <div dir="ltr">
                                          <div>
                                            <div dir="ltr"><font
                                                style="font-size:small"
                                                face="arial, helvetica,
                                                sans-serif">
                                                <div>​</div>
================================================<br>
                                                Éder Comunello</font>
                                              <div
                                                style="font-size:small"><span
style="font-family:arial,helvetica,sans-serif">PhD Student in
                                                  Agricultural Systems
                                                  Engineering (USP/Esalq)</span><br>
                                              </div>
                                              <div><span
                                                  style="font-size:small">Brazilian

                                                  Agricultural Research
                                                  Corporation (</span><font
style="font-size:small" face="arial, helvetica, sans-serif">Embrapa)</font>
                                                <div
                                                  style="font-size:small"><font
                                                    face="arial,
                                                    helvetica,
                                                    sans-serif">Dourados,
                                                    MS, Brazil [</font>22
                                                  16.5'S, 54 49.0'W<span
style="font-family:arial,helvetica,sans-serif">]</span></div>
                                                <div>
                                                  <div><br>
                                                  </div>
                                                  <div><br>
                                                  </div>
                                                </div>
                                                <div
                                                  style="font-size:small"><br>
                                                </div>
                                              </div>
                                            </div>
                                          </div>
                                        </div>
                                      </div>
                                    </div>
                                  </div>
                                </div>
                                <br>
                                <div class="gmail_quote">Em 21 de
                                  janeiro de 2016 11:41, Manoel Galdino
                                  <span dir="ltr"><<a
                                      moz-do-not-send="true"
                                      href="mailto:mcz.fea@gmail.com"
                                      target="_blank"><a class="moz-txt-link-abbreviated" href="mailto:mcz.fea@gmail.com">mcz.fea@gmail.com</a></a>></span>
                                  escreveu:<br>
                                  <blockquote class="gmail_quote"
                                    style="margin:0 0 0
                                    .8ex;border-left:1px #ccc
                                    solid;padding-left:1ex">
                                    <div dir="ltr">
                                      <div>
                                        <div>
                                          <div>Eu não entendi o que você
                                            quer fazer. No seu exemplo,
                                            o primeiro elemento é
                                            besouro, mas você retornou
                                            barata.<br>
                                            <br>
                                          </div>
                                          <div>Os valores de talhao e
                                            area nnao parecem bater com
                                            os dados do seu exemplo.
                                            Como para Formiga o talhão
                                            de volta redonda seria 73,
                                            se na base original os
                                            valores são 74 e 15?<br>
                                          </div>
                                          <br>
                                        </div>
                                        <div>Abc<br>
                                        </div>
                                        <div>Manoel<br>
                                          <br>
                                          > tableFE<br>
                                          <br>
                                               Bichos Talhao      
                                          Projeto Injuria Area<br>
                                            Besouros     73    Abre
                                          Campo      25  0.0<br>
                                              Barata     15 Volta
                                          Redonda     100  0.0<br>
                                            Formiga     74      
                                          Vitoria       0 12.5<br>
                                             Barata     75    Abre
                                          Campo      25  0.0<br>
                                            Formiga     15 Volta
                                          Redonda       0  7.5<br>
                                            Besouros     15      
                                          Vitoria     100  0.0<br>
                                             Formiga     15    Abre
                                          Campo       0  1.5<br>
                                            Besouros     73 Volta
                                          Redonda      50  0.0<br>
                                             Barata     15      
                                          Vitoria      25  0.0<br>
                                            Formiga     15    Abre
                                          Campo       0 23.8<br>
                                             Barata     73 Volta
                                          Redonda      25  0.0<br>
                                            Formiga     15      
                                          Vitoria       0  5.3<br>
                                           Besouros     73    Abre
                                          Campo      25  0.0<br>
                                            Formiga     74 Volta
                                          Redonda       0  2.0<br>
                                            Formiga     74      
                                          Vitoria       0 11.3<br>
                                        </div>
                                        <br>
                                      </div>
                                      Mas seus resultados não têm a
                                      média<br>
                                      <div>
                                        <div>
                                          <div class="gmail_extra">
                                            <div>
                                              <div><br>
                                                <div class="gmail_quote">2016-01-21
                                                  11:07 GMT-02:00
                                                  ASANTOS <span
                                                    dir="ltr"><<a
                                                      moz-do-not-send="true"
href="mailto:alexandresantosbr@yahoo.com.br" target="_blank"><a class="moz-txt-link-abbreviated" href="mailto:alexandresantosbr@yahoo.com.br">alexandresantosbr@yahoo.com.br</a></a>></span>:<br>
                                                  <blockquote
                                                    class="gmail_quote"
                                                    style="margin:0px
                                                    0px 0px
                                                    0.8ex;border-left:1px
                                                    solid
                                                    rgb(204,204,204);padding-left:1ex">Caros

                                                    listeiros,<br>
                                                    <br>
                                                    <br>
                                                       Estou tentando
                                                    criar uma função
                                                    aggPestFE que para
                                                    uma primeira
                                                    variável se for
                                                    "Formiga", vai tirar
                                                    a media da coluna 5,
                                                    mas se for
                                                    "Besouros" ou
                                                    "Barata" vai tira a
                                                    média da coluna 4.
                                                    Sendo que quero o
                                                    resultado dado em
                                                    forma de list,
                                                    ficando o meu
                                                    resultado:<br>
                                                    <br>
                                                    [[1]]<br>
                                                    [1] "Barata"<br>
                                                    <br>
                                                    [[1]][[3]]<br>
                                                            Projeto
                                                    Talhao Injuria(%)<br>
                                                    1    Abre Campo   
                                                     15        25<br>
                                                    2 Volta Redonda   
                                                     73        0<br>
                                                    3       Vitoria   
                                                     74        50<br>
                                                    <br>
                                                    <br>
                                                    [[2]]<br>
                                                    [1] "Besouros"<br>
                                                    <br>
                                                    [[1]][[3]]<br>
                                                            Projeto
                                                    Talhao Injuria(%)<br>
                                                    1    Abre Campo   
                                                     15        0<br>
                                                    2 Volta Redonda   
                                                     73        25<br>
                                                    3       Vitoria   
                                                     74        50<br>
                                                    <br>
                                                    [[2]]<br>
                                                    [1] "Formiga"<br>
                                                    <br>
                                                    [[1]][[3]]<br>
                                                            Projeto
                                                    Talhao   Area  (m2)<br>
                                                    1    Abre Campo   
                                                     15        12.5<br>
                                                    2 Volta Redonda   
                                                     73        1.5<br>
                                                    3       Vitoria   
                                                     74        23.8<br>
                                                    <br>
                                                    <br>
                                                               Para isso
                                                    estou tentando:<br>
                                                    <br>
                                                    <br>
                                                    ##Dados artificiais<br>
                                                    <br>
Bichos<-c("Besouros","Barata","Formiga","Barata","Formiga","Besouros","Formiga",<br>
"Besouros","Barata","Formiga","Barata","Formiga","Besouros","Formiga","Formiga")<br>
                                                    <br>
Talhao<-c(73,15,74,75,15,15,15,73,15,15,73,15,73,74,74)<br>
                                                    <br>
                                                    <br>
                                                    Projeto<-c("Abre
                                                    Campo", "Volta
                                                    Redonda","Vitoria","Abre
                                                    Campo", "Volta
                                                    Redonda",<br>
                                                    "Vitoria","Abre
                                                    Campo", "Volta
                                                    Redonda","Vitoria","Abre
                                                    Campo", "Volta
                                                    Redonda",<br>
                                                    "Vitoria","Abre
                                                    Campo", "Volta
                                                    Redonda","Vitoria")<br>
                                                    <br>
Injuria<-c(25,100,0,25,0,100,0,50,25,0,25,0,25,0,0)<br>
                                                    <br>
                                                    <br>
                                                    <br>
Area<-c(0,0,12.5,0,7.5,0,1.5,0,0,23.8,0,5.3,0,2.0,11.3)<br>
                                                    <br>
                                                    <br>
                                                    tableFE<-data.frame(Bichos,
                                                    Talhao, Projeto,
                                                    Injuria, Area) ##
                                                    Banco de dados
                                                    criado<br>
                                                    <br>
                                                    <br>
                                                    ##Função<br>
                                                    <br>
                                                    aggPestFE<-function(x,
                                                    db=tableFE){<br>
                                                    <br>
                                                    <br>
                                                    mylist <- list()<br>
                                                    <br>
                                                    <br>
                                                    <br>
                                                    <br>
                                                         if (tableFE[,1]
                                                    != "Formigas") {<br>
                                                    <br>
                                                            for (i in
                                                    length(tableFE[,1])){<br>
                                                    <br>
                                                           
                                                    GP_FE2<-tableFE[tableFE[,1]==tableFE[i],]<br>
                                                            aggdata
                                                    <-aggregate(GP_FE2[,4],
                                                    list(GP_FE2[,3],GP_FE2[,2]),
                                                    mean)<br>
                                                    colnames(aggdata)<-c("Regional","Projeto","Talhão","Injúria

                                                    média (%)")<br>
                                                            tmp <-
                                                    list(aggdata)<br>
                                                           
                                                    mylist[NPRAGS[i]]
                                                    <- tmp<br>
                                                           
                                                    result<-mylist<br>
                                                           
                                                    return(result)<br>
                                                            }<br>
                                                    <br>
                                                    <br>
                                                         else if
                                                    (tableFE[,1] ==
                                                    "Formigas") {<br>
                                                    <br>
                                                           
                                                    GP_FE2<-[tableFE[,1]<br>
                                                            aggdata
                                                    <-aggregate(GP_FE2[,5],
                                                    list(GP_FE2[,3],GP_FE2[,2]),
                                                    mean)<br>
                                                    colnames(aggdata)<-c("Regional","Projeto","Talhão","Injúria

                                                    média (%)")<br>
                                                            tmp <-
                                                    list(aggdata)<br>
                                                           
                                                    mylist[NPRAGS[i]]
                                                    <- tmp<br>
                                                           
                                                    result<-mylist<br>
                                                           
                                                    return(result)<br>
                                                            }<br>
                                                            }<br>
                                                    <br>
RES<-list(result,aggdata3)<br>
                                                    result<-RES<br>
                                                    return(result)<br>
                                                    }<br>
                                                    <br>
                                                    <br>
                                                    #Teste<br>
                                                    aggPestFE(tableFE)<br>
                                                    #<br>
                                                    <br>
                                                       Sem sucesso,
                                                    alguém poderia me
                                                    ajudar?<br>
                                                    <br>
                                                    Obrigado e abraços,<br>
                                                    <br>
                                                    <br>
                                                    <br>
                                                    <br>
                                                    <br>
                                                    <br>
                                                    -- <br>
======================================================================<br>
                                                    Alexandre dos Santos<br>
                                                    Proteção Florestal<br>
                                                    IFMT - Instituto
                                                    Federal de Educação,
                                                    Ciência e Tecnologia
                                                    de Mato Grosso<br>
                                                    Campus Cáceres<br>
                                                    Caixa Postal 244<br>
                                                    Avenida dos Ramires,
                                                    s/n<br>
                                                    Bairro: Distrito
                                                    Industrial<br>
                                                    Cáceres - MT       
                                                                  CEP:
                                                    78.200-000<br>
                                                    Fone: <a
                                                      moz-do-not-send="true"
href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112"
                                                      target="_blank">(+55)

                                                      65 8132-8112</a>
                                                    (TIM)   <a
                                                      moz-do-not-send="true"
href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970"
                                                      target="_blank">(+55)

                                                      65 9686-6970</a>
                                                    (VIVO)<br>
                                                    <a
                                                      moz-do-not-send="true"
href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank"><a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a></a><br>
                                                            <a
                                                      moz-do-not-send="true"
href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank"><a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a></a><br>
                                                    Lattes: <a
                                                      moz-do-not-send="true"
href="http://lattes.cnpq.br/1360403201088680" rel="noreferrer"
                                                      target="_blank"><a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a></a><br>
                                                    OrcID: <a
                                                      moz-do-not-send="true"
href="http://orcid.org/0000-0001-8232-6722" rel="noreferrer"
                                                      target="_blank">orcid.org/0000-0001-8232-6722</a><br>
                                                    Researchgate: <a
                                                      moz-do-not-send="true"
href="https://www.researchgate.net/profile/Alexandre_Santos10"
                                                      rel="noreferrer"
                                                      target="_blank"><a class="moz-txt-link-freetext" href="https://www.researchgate.net/profile/Alexandre_Santos10">https://www.researchgate.net/profile/Alexandre_Santos10</a></a><br>
                                                    LinkedIn: <a
                                                      moz-do-not-send="true"
href="https://br.linkedin.com/in/alexandre-dos-santos-87961635"
                                                      rel="noreferrer"
                                                      target="_blank"><a class="moz-txt-link-freetext" href="https://br.linkedin.com/in/alexandre-dos-santos-87961635">https://br.linkedin.com/in/alexandre-dos-santos-87961635</a></a><br>
======================================================================<br>
                                                    <br>
_______________________________________________<br>
                                                    R-br mailing list<br>
                                                    <a
                                                      moz-do-not-send="true"
href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank"><a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a></a><br>
                                                    <a
                                                      moz-do-not-send="true"
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
                                                      rel="noreferrer"
                                                      target="_blank"><a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a></a><br>
                                                    Leia o guia de
                                                    postagem (<a
                                                      moz-do-not-send="true"
href="http://www.leg.ufpr.br/r-br-guia" target="_blank"><a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a></a>)
                                                    e fornea cdigo mnimo
                                                    reproduzvel.</blockquote>
                                                </div>
                                                <br>
                                                <br clear="all">
                                                <br>
                                              </div>
                                            </div>
                                            <span><font color="#888888">--
                                                <br>
                                                <div>Manoel Galdino<br>
                                                  <a
                                                    moz-do-not-send="true"
href="https://sites.google.com/site/galdinomcz/" target="_blank"><a class="moz-txt-link-freetext" href="https://sites.google.com/site/galdinomcz/">https://sites.google.com/site/galdinomcz/</a></a><br>
                                                </div>
                                              </font></span></div>
                                        </div>
                                      </div>
                                    </div>
                                    <br>
_______________________________________________<br>
                                    R-br mailing list<br>
                                    <a moz-do-not-send="true"
                                      href="mailto:R-br@listas.c3sl.ufpr.br"
                                      target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
                                    <a moz-do-not-send="true"
                                      href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
                                      rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
                                    Leia o guia de postagem (<a
                                      moz-do-not-send="true"
                                      href="http://www.leg.ufpr.br/r-br-guia"
                                      rel="noreferrer" target="_blank"><a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a></a>)
                                    e forneça código mínimo
                                    reproduzível.<br>
                                  </blockquote>
                                </div>
                                <br>
                              </div>
                              <br>
                              <fieldset></fieldset>
                              <br>
                            </div>
                          </div>
                          <pre><div><div>_______________________________________________
R-br mailing list
<a moz-do-not-send="true" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<a moz-do-not-send="true" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a></div></div>
Leia o guia de postagem (<a moz-do-not-send="true" 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.</pre>
                        </blockquote>
                        <br>
                      </div>
                      <br>
                      _______________________________________________<br>
                      R-br mailing list<br>
                      <a moz-do-not-send="true"
                        href="mailto:R-br@listas.c3sl.ufpr.br"
                        target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
                      <a moz-do-not-send="true"
                        href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
                        rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
                      Leia o guia de postagem (<a moz-do-not-send="true"
                        href="http://www.leg.ufpr.br/r-br-guia"
                        rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
                      e forneça código mínimo reproduzível.<br>
                    </blockquote>
                  </div>
                  <br>
                  <br clear="all">
                  <br>
                  -- <br>
                  <div>Manoel Galdino<br>
                    <a moz-do-not-send="true"
                      href="https://sites.google.com/site/galdinomcz/"
                      target="_blank">https://sites.google.com/site/galdinomcz/</a><br>
                  </div>
                </div>
              </div>
            </div>
            <br>
            _______________________________________________<br>
            R-br mailing list<br>
            <a moz-do-not-send="true"
              href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
            <a moz-do-not-send="true"
              href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
              rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
            Leia o guia de postagem (<a moz-do-not-send="true"
              href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer"
              target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e
            forneça código mínimo reproduzível.<br>
          </blockquote>
        </div>
        <br>
      </div>
      <br>
      <fieldset class="mimeAttachmentHeader"></fieldset>
      <br>
      <pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="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.</pre>
    </blockquote>
    <br>
  </body>
</html>