Fevereiro 2016 - R-br

Função com vários if e else if que não funciona
by ASANTOS 08 Fev '16

08 Fev '16

Caros Listeiros, Estou tentando criar uma função abaixo para converter um SpatialGridDataFrame originado de uma imagem de satélite para reflectância, mas a função que eu criei (radconvL()) pelo excesso de else if não esta funcionando. Meu problema é que não dá erro, o que normalmente ajuda a detectar o problema, mas no meu caso a função nem funciona, segue meu CRM abaixo, alguém poderia me ajudar? require(raster) require(sp) # RasterLayer inventado r <- raster(nrows=10, ncols=10) r <- setValues(r, 1:ncell(r)) plot(r) band2<- as(r, 'SpatialGridDataFrame') ### transforma em SpatialGridDataFrame ##Função para conversão DN para reflectância radconvL<-function(x, band = 2) { BAND <- c("2", "3", "4", "5") band <- pmatch(band, BAND) Lmin = 0 Qmax = 127 if (is.na(band)) stop("invalid band") if (band == 2) { Lmax = 120.64 results <- x x <- as.vector(as.matrix(x)) x <- Lmin + ((Lmax-Lmin)*x)/Qmax if (class(results) == "SpatialGridDataFrame") results@data[, 1] <- x else if (is.data.frame(x)) results <- data.frame(matrix(x, nrow = nrow(results), ncol = ncol(results))) else results <- x results } else if (band == 3) { Lmax = 151.31 results <- x x <- as.vector(as.matrix(x)) x <- Lmin + ((Lmax-Lmin)*x)/Qmax if (class(results) == "SpatialGridDataFrame") results@data[, 1] <- x else if (is.data.frame(x)) results <- data.frame(matrix(x, nrow = nrow(results), ncol = ncol(results))) else results <- x results } else if (band == 4) { Lmax = 157.57 results <- x x <- as.vector(as.matrix(x)) x <- Lmin + ((Lmax-Lmin)*x)/Qmax if (class(results) == "SpatialGridDataFrame") results@data[, 1] <- x else if (is.data.frame(x)) results <- data.frame(matrix(x, nrow = nrow(results), ncol = ncol(results))) else results <- x results } else if(band == 5) { Lmax = 69.03 results <- x x <- as.vector(as.matrix(x)) x <- Lmin + ((Lmax-Lmin)*x)/Qmax if (class(results) == "SpatialGridDataFrame") results@data[, 1] <- x else if (is.data.frame(x)) results <- data.frame(matrix(x, nrow = nrow(results), ncol = ncol(results))) else results <- x results } } ###### teste<-radconvL(band2, band=2) ## Aqui não funciona e não sei porque teste Muito 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(a)cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================

7 19

Função de alisamento de Henderson
by Daniel Marcelino 08 Fev '16

08 Fev '16

Olá, eu estou querendo fazer um teste com a função de alisamento para médias móveis de Henderson, mas pesquisando no R e Google eu não a encontrei. Na verdade, eu enontrei no pacote `pracma`, mas não funciona na verdade. Alguém sabe de algum pacote ou implementação avulsa dessa função? Eu econtrei apenas notas e demonstrações: http://www.ausstats.abs.gov.au/ausstats/free.nsf/0/D829449095630207CA256D78… Daniel

1 0

Grafico Open High Loss Close (OHLC) de barras
by regis barros 05 Fev '16

05 Fev '16

Bom dia PessoalGostaria de saber se o R consegue plotar o gráfico de barras OHLC para cotações de valores de ações.E Como poderia fazer este gráfico no R. Regis

4 4

(sem assunto)
by Rudiney S Pereira 04 Fev '16

04 Fev '16

Bom dia! Preciso fazer a carga de imagens formato Geotiff e, não consigo pois um dos pacotes rgdal, não está disponível na lista para a instalação. Uso Linux Distribuição DEBIAN, SID. A versão do R é a última. Agradeço desde já! Rudiney -- Prof. Dr. Rudiney Soares Pereira UFSM - CCR - DER - Núcleo de Geotecnologias Prédio 44 J, Sala 214 RS 509 KM 9 - Campus Universitário 97.105-900 Santa Maria RS Brasil site: http://www.ufsm.br/geosere skype: rudiney.s.pereira fone: 55 3220-9468 55 9118-4142

2 2

Gráfico Open High Low Close
by regis barros 04 Fev '16

04 Fev '16

Bom dia PessoalGostaria de saber como posso plotar um gráfico de abertura, maximo, minimo e fechamento, referente a cotação de ações na bolsa de valores.Grato Regis Godoy BarrosLicenciatura em Física

2 1

Vetor com vários formatos de datas
by ASANTOS 03 Fev '16

03 Fev '16

Caros Listeiros, Tenho um vetor com diferentes formatos de datas abaixo, que se tento tirar a média não funciona e se tento explicitar um format=%d/%m/%Y", acabo deixando de fora o %d-%m-%Y e %d.%m.%Y. Aonde pergunto é possível trabalhar com um vetor de datas em diferentes formatos? Segue CRM: datas<-c("12-10-2011","10.03.2013","05/06/2016" ) time_a<-range(as.Date(datas)) time_a time_b<-range(as.Date(tableFE[,11], format = "%d/%m/%Y")) time_b 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(a)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 ======================================================================

3 3

I Congresso de Aplicações de R em Administração
by Rodrigo Coster 03 Fev '16

03 Fev '16

Para quem interessar (via http://cara.coppead.ufrj.br/home) O I Congresso de Aplicações de R em Administração – CARA – visa disseminar o universo de estudos na área de Administração que utilizam a linguagem R como forma de alavancar a eficiência e qualidade dos trabalhos elaborados. Profissionais dos setores público e privado, de distintas áreas como Finanças e Educação, ministrarão palestras sobre a utilização do R no seu dia a dia. Haverá espaço para exposição de trabalhos das diversas áreas de Administração, que tenham sido desenvolvidos utilizando a linguagem R. O foco não deverá ser a discussão do código desenvolvido, mas sim a análise proposta, e do poder estatístico oferecido pela linguagem. Interessados devem submeter até três artigos pelo sistema disponível neste site, observando o calendário do evento. O CARA é destinado tanto a profissionais que nunca escreveram um código em R, bem como a profissionais experientes que desejarem conhecer trabalhos que têm sido desenvolvidos utilizando-se desta poderosa linguagem. Serão também oferecidas duas atividades: um workshop Análise de Business Intelligence, para profissionais que possuem um conhecimento básico de R, e um minicurso Apresentação do R, voltado àqueles que desejarem ter o primeiro contato com a linguagem. O evento ocorrerá nos dias 13 a 15 de abril de 2016, no Instituto COPPEAD de Administração. []'s

1 0

Adicionar um vetor a uma tabela mysql
by José Jesus Filho 03 Fev '16

03 Fev '16

Olá Pessoal, Esto começando a trabalhar com SQL a partir do R, então perdoem-me se cometer algum erro estúpido. Eu exportei do R uma tabela chamada "legislacao" para uma base de dados no MySQL usando o pacote RMySQL. Olá pessoal, Acontece que eu tenho um vetor "seguranca" com o mesmo número de linhas que a tabela "legislacao" e gostaria de adicioná-lo a essa tabela no MySQL como uma nova caluna sem ter de exportá-la novamente. No R eu simplesmente faria isso: legislacao$seguranca<-seguranca Já com o RMySQL, eu não sei, pois só encontrei "statements" para adicionar linhas ,não colunas. Claro é possível criar uma coluna com o "statement" ALTER TABLE legislacao ADD seguranca, mas isso cria uma coluna vazia com este nome. Eu quero preenchê-la com os valores correspondente. Obrigado, José.

4 5

Problema com datas que se tornam numéricas
by ASANTOS 02 Fev '16

02 Fev '16

Caros Listeiros, Desenvolvi uma função que extrai dentre várias informações de uma tabela, a menor e a maior data, meu problema é que mesmo especificando a data como as.Date(), ela fica numérica após a execução da função, alguém poderia me dar uma luz? Segue CRM: ## Função para leitura da tabela HTML readFE <- function(url0){ require(RCurl); require(XML) url1 <- gsub("(^.*)(/s/.*)(\\?.*$)", "https://dl.dropboxusercontent.com\\2", url0); url1 page <- getURL(url1) # page <- getURL(url1, ssl.verifypeer = FALSE) ### SSL certificate problem classes <- c(rep("factor", 6), rep("numeric", 4), "factor") return(readHTMLTable(page, head=T, colClasses=classes)[[1]]) } tableFE<- readFE("https://www.dropbox.com/s/foeh9oqbiqlawvg/TALHOES_AGENTE2.htm?dl=1") ## Sumariza as informações do banco de dados summaryFE<-function(x, db=tableFE){ ## Função Identificadora da empresa enterprise<-function(x, db = tableFE) { x<-NULL results <- x x<-db[1,1] results <- x results } #--# #Exemplo ENTERP<-enterprise(db = tableFE) # ## Função do período do monitoramento timeFE<-function(x, db = tableFE) { x<-NULL minT<-min(as.Date(db[,11])) maxT<-max(as.Date(db[,11])) results <- x x<-cbind(as.Date(minT),as.Date(maxT)) colnames(x)<-c("Ínicio","Fim") results <- x results } #--# ##Enumera o número de grupos de pragas monitorados npragsFE<-function(x){ npragsFE<-unique(db[,6]) } # result<-list(enterprise(x),timeFE(x),npragsFE(x)) return(result) } # ## Sumariza summaryFE(tableFE) -- ====================================================================== 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(a)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 ======================================================================

2 2

problema biblioteca netcdf
by Mateus Dias Nunes 02 Fev '16

02 Fev '16

Olá Quando tento chamar a biblioteca "library(ncdf)" resulta no erro: > library(ncdf) Error in library(ncdf) : there is no package called ‘ncdf’ ai quando vou instalar o pacote, apresenta-se esta informação: package ‘ncdf’ is not available (for R version 3.2.3) como eu poderia resolver este problema. att ____________________________________________________________________________ MATEUS DIAS NUNES MESTRANDO DO PROGRAMA DE PÓS-GRADUAÇÃO EM METEOROLOGIA - PPGMET UNIVERSIDADE FEDERAL DE PELOTAS - UFPEL TELEFONE: +55 (53) 81125154 ____________________________________________________________________________

3 2