[R-br] RES: Criar função para tirar a média entre grupos sob condições dadas

[ASANTOS]

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 em yahoo.com.br
         alexandre.santos em 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>

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160128/e5325c5b/attachment.html>