Boa noite Éder,

Tentei transformar a rotina criada por você em função e não funcionou e não sei porque, poderia me ajudar?

Segue CRM:

### <code r>
require(RCurl); require(XML)
url0 <- "https://www.dropbox.com/s/znmr0lwda2y6fc5/BD_teste2.html?dl=1"
url1 <- "https://dl.dropboxusercontent.com/s/znmr0lwda2y6fc5/BD_teste2.html"

page <- getURL(url1)
tableFE <- readHTMLTable(page, head=T)[[1]]
head(tableFE)

##Agregando os resultados

aggPestFE<-function(x, db=tableFE){
lista <- split(tableFE, tableFE$descricao)
results <- x
result<-lapply(lista, function(x) aggregate(x[,7:8], by=list(x[,3],x[,2],x[,5]), mean))
return(result)
}

aggPestFE(tableFE)

#

### </code>

Obrigado

-- 
======================================================================
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)
e-mails:alexandresantosbr@yahoo.com.br 
        alexandre.santos@cas.ifmt.edu.br 
Lattes: http://lattes.cnpq.br/1360403201088680
OrcID: orcid.org/0000-0001-8232-6722 
Researchgate: https://www.researchgate.net/profile/Alexandre_Santos10                       
LinkedIn: https://br.linkedin.com/in/alexandre-dos-santos-87961635
======================================================================

Em 22/01/2016 09:37, Éder Comunello escreveu:

### <code r>

require(RCurl); require(XML)

url0 <- "https://www.dropbox.com/s/znmr0lwda2y6fc5/BD_teste2.html?dl=1"

url1 <- "https://dl.dropboxusercontent.com/s/znmr0lwda2y6fc5/BD_teste2.html"

page <- getURL(url1)

tableFE <- readHTMLTable(page, head=T)[[1]]

head(tableFE)

##Agregando os resultados

lista <- split(tableFE, tableFE$descricao); head(lista)

lapply(lista, function(x) aggregate(x[,7:8], by=list(x[,2], x[,5]), mean))

### </code>