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>