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:[email protected]
[email protected]
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>
_______________________________________________
R-br mailing list
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo
m�nimo reproduz�vel.
