[R-br] RES: RES: Criar função para tirar a média entre grupos sob condições dadas [RESOLVIDO]
Mauro Sznelwar
sznelwar em uol.com.br
Domingo Janeiro 24 20:30:40 BRST 2016
Muito obrigado!!!
Segue o solicitado Mauro,
##Pacotes e-------------------------------------------------------------
require(httr)
require(XML)
## Função de leitura do banco de dados do APP #--------------------------------
readFE<- function (x, URL = ""){
FILE <- GET(url=URL)
tables <- getNodeSet(htmlParse(FILE), "//table")
FE_tab <- readHTMLTable(tables[[1]],
header = c("empresa","desc_projeto","desc_regiao",
"cadastrador_por","cod_talhao","descricao",
"formiga_area","qtd_destruido","latitude",
"longitude","data_cadastro"),
colClasses = c("character","character","character",
"character","numeric","character",
"numeric","numeric","numeric",
"numeric","character"),
trim = TRUE, stringsAsFactors = FALSE
)
x<-NULL
results <- x
x<-FE_tab[-(1),]
results <- x
results<-results[!apply(results,1,function(x){any(x=="(NULL)")}),]
results
}
#--#
tableFE<-readFE(URL= <https://www.dropbox.com/s/znmr0lwda2y6fc5/BD_teste2.html?dl=1> "https://www.dropbox.com/s/znmr0lwda2y6fc5/BD_teste2.html?dl=1")
head(tableFE)
#------
lista <- split(tableFE, tableFE$descricao)
lapply(lista, function(x) aggregate(x[,7:8], by=list(x[,3],x[,2],x[,5]), mean))
--
======================================================================
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 03:20, Mauro Sznelwar escreveu:
Pode passar o código com o data-set para rodar?
---
Este email foi escaneado pelo Avast antivírus.
https://www.avast.com/antivirus
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160124/dd88bb03/attachment.html>
Mais detalhes sobre a lista de discussão R-br