Novembro 2012 - R-br

Re: [R-br] selecionar intervalo de datas
by Eder Comunello 02 Nov '12

02 Nov '12

Exemplo de operação com datas com seleção por subset ############ dados<-data.frame( data=c("01/01/2004","01/02/2004","01/03/2004","01/04/2004","01/05/2004","01/06/2004"), tmin=c(17.82966,18.05029,22.47399,28.20188,13.46510,18.82721), tmax=c(44.23301,21.11526,22.79882,35.31366,35.84991,39.14286)); dados dados$data2 <- as.Date(dados$data,"%d/%m/%Y"); dados length(dados$tmax); mean(dados$tmax) data.cut <- as.Date("01/02/2004","%d/%m/%Y") novo <- subset(dados,data2>data.cut); novo length(novo$tmax); mean(novo$tmax) ############## Até mais, -- ================================================ Éder Comunello Ph.D. Student in Agricultural Systems Engineering (USP/ESALQ) Piracicaba, SP, Brazil [22 42.7'S, 47 37.8'W] Researcher at Embrapa Western Region Agriculture Dourados, MS, Brazil [22 16.5'S, 54 49.0'W] ================================================ UTC-03:00

2 2

Re: [R-br] somar valores em intervalo pré-definido
by Eder Comunello 02 Nov '12

02 Nov '12

Lucas e colegas, bom dia! Tem que operar com as datas no formato interno do R, só transformando pra visualizar. Defini as datas de corte nas vars data.ini e data.fim... Alterei todos os valores de p1$num para '1', então se a soma estiver correta corresponderá ao número de eventos selecionados. Aqui deu certo! ;D #################### #Criando intervalo de datas Data<-seq(from=as.Date('01/01/1980',format='%d/%m/%Y'),to=as.Date('31/12/1980',format='%d/%m/%Y'),by='day') #transformando em data frame p1 <- data.frame(Data) p1$num <- 1 str(p1) data.ini <- as.Date('11/11/1980',format='%d/%m/%Y') data.fim <- as.Date('11/12/1980',format='%d/%m/%Y') data.dif <- data.fim-data.ini+1; data.dif #somando valores em um intervalo definido sum(p1$num[p1$Data >= data.ini & p1$Data <= data.fim]) #################### -- ================================================ Éder Comunello Ph.D. Student in Agricultural Systems Engineering (USP/ESALQ) Piracicaba, SP, Brazil [22 42.7'S, 47 37.8'W] Researcher at Embrapa Western Region Agriculture Dourados, MS, Brazil [22 16.5'S, 54 49.0'W] ================================================ UTC-03:00

2 1

somar valores em intervalo pré-definido
by luc.souza＠usp.br 02 Nov '12

02 Nov '12

Bom dia. Estou precisando somar os valores de uma coluna em um intervalo pre-definido por mim. Por exemplo: tenho alguns valores referentes a algumas datas. Preciso somar alguns valores no período compreendio entre 11/11/1980 e 11/12/1980, conforme exemplo abaixo. Tentei fazer algumas coisas (abaixo) mas aparece o erro (tb abaixo). Só para lembrar, utilizo a data no formato americano e quando a faço a transformação, ela fica como character. Obriagdo pela ajuda Lucas #Criando intervalo de datas Data<-seq(from =as.Date('01/01/1980',format='%d/%m/%Y'),to=as.Date('31/12/1980',format='%d/%m/%Y'),by='day') #transformando em data frame p1 <- data.frame(Data) #colocando a data no formato americano que eu utilizo p1$Data <- as.Date(p1$Data, "%d/%m/%Y") p1$Data <- strftime(p1$Data, "%m/%d/%Y") #criando tabela de valores p1$num <- 1:366 #somando valores em um intervalo definido soma <- with(p1, sum(p1[p1$Data >= 11/11/1980 & p1$Data <= 11/12/1980, p1$num])) Error in `[.data.frame`(p1, p1$Data >= 11/11/1980 & p1$Data <= 11/12/1980, : undefined columns selected sum(which(p1$num[p1$Data >= '11/11/1980'] & p1$num[p1$Data <= '11/12/1980'])) erro: longer object length is not a multiple of shorter object length Lucas F. de Souza Eng. Agrícola - CONAB M.Sc. Produção Vegetal - UENF Doutorando Engenharia de Sistemas Agrícolas - ESALQ/USP tel: (19) 8160-7068

1 0

selecionar intervalo de datas
by luc.souza＠usp.br 01 Nov '12

01 Nov '12

Boa tarde Possuo uma coluna com datas (m/d/aaaa), cujo formato é character. Preciso selecionar um intervalo entre duas datas. Já tentei subset, mas não funcionou. Alguma solução? obrigado Lucas F. de Souza Eng. Agrícola - CONAB M.Sc. Produção Vegetal - UENF Doutorando Engenharia de Sistemas Agrícolas - ESALQ/USP tel: (19) 8160-7068

3 4

Problemas com ajuste de modelo ARIMAX
by Fatima do Nascimento Silva 01 Nov '12

01 Nov '12

Prezados, estou tentando ajustar um modelo ARIMAX no R, ao enviar as seguintes linhas de comando, aparece a seguinte mensagem de erro: "Erro em optim(init[mask], armaCSS, method = "BFGS", hessian = FALSE,: valor não finito fornecido por optim #linhas de comando (dados=read.table("H:vazao.txt",header=T,dec=","))#dados para ajuste do modelo attach(dados) (dados1=read.table("H:A.txt",header=F,dec=","))#data frame com as covariáveis #dimensão: [132,3] attach(dados1) library(forecast)#carregando pacote #Ajustando o modelo (mdl=arimax(dados, order = c(0, 2, 1), include.mean = T, xreg = dados1)) Atenciosamente, Fátima

2 4

Tinn-R 2.3.7.4 pre-release
by Jose Claudio Faria 01 Nov '12

01 Nov '12

Prezados usuários do Tinn-R, Aproveitando que ando me recuperando de uma cirurgia de hérnia inguinal dupla convencional em casa, com calma e bastante tempo (não estou indo trabalhar na Universidade), andei fazendo umas alterações no Tinn-R e creio que ficaram bem boas. Contudo, gostaria de escutar as opiniões do usuários da casa antes de liberar para todos os usuários no SourceForge. Estou usando a nova versão já a alguns dias e já testei em dois sabores do WIndows 7, tudo parece estável. Mas seria bom testes em outras plataformas e máquinas. Os uauários que quiserem testar podem entrar em contato direto comigo: joseclaudio.faria(a)gmail.com que mando o link de onde pode ser baixado. As principais alterações estão abaixo (em Inglês): 2.3.7.4 (Nov/01/2012) - The graphical interface was updated with some improvements, mainly the Application options. - A new toolbar "Format" was added to the main toolbar. - A new resource allowing reformat R code (selection or whole file) using formatR package was added. The icon resource was placed in the Format toolbar, so that from this version on, the formatR package will be necessary together with the already traditional TinnR and svSocket packages. - Due to new resource related to reformat code the variable .trPaths was changed. As a result, it will be necessary to run again the R/Configure/Permanent (Rprofile.site). In this case, do not forget to remove any prior script generated by Tinn-R in the Rprofile.site file. - The R/Hotkeys interface was deeply reworked and it now has two tabs: Default and Custom. - Default: Contains the already traditional instructions of Tinn-R; - Custom: Allows the user to customize any instructions to be send to R interpreter (thanks to Philemon Lenherr for the suggestion). The instructions must be as follows: - Simple: search(). The R interpreter will receive > search(); - Replace word or small selection: View(%s, title='Test'). If the editor cursor is over the word iris or it is selected, the R interpreter will receive > View(iris, title='Test') - Replace whole file: source(%f, echo=TRUE, verbose=TRUE). The R interpreter will receive > source(.trPaths[4], echo=TRUE, verbose=TRUE). All rules related to send file will be preserved. - Sorry, due to deeply changes in R/Hotkeys, all hotkeys configured prior to this version will be lost. It will be necessary to reconfigure all. - The chapter Some secrets for an efficient use is being revised by Ricardo Pietrobon and soon will be completed. Many thanks for his hard work! Ab, -- ///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\ Jose Claudio Faria Estatistica UESC/DCET/Brasil joseclaudio.faria at gmail.com Telefones: 55(73)3680.5545 - UESC 55(73)9100.7351 - TIM 55(73)8817.6159 - OI ///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\

1 0

Problemas na integração R e Tinn-R!
by Danilo Cuzzuol Pedrini 01 Nov '12

01 Nov '12

Prezados, Instalei as últimas versões do R e do Tinn-R, ao enviar uma linha de comando do Tinn-R ao R, aparece a seguinte mensagem de erro: "source(.trPaths[4]) Erro em source(.trPaths[4]) : objeto '.trPaths' não encontrado" Atenciosamente, Danilo Cuzzuol Pedrini www.danilocp.blogspot.com

2 1

[Dúvida] Função Gama Incompleta.
by Pedro Rafael 01 Nov '12

01 Nov '12

Pessoal qual o comando certo ou pacote que trabalha com a função gamma incompleta? Estou obtendo valores muito diferentes da gamma incompleta no R e no mathematica. Por exemplo: No R: pgamma(.10,1.5) = 0.0224107 No Mathematica: N[Gamma[.10, 1.5], 10] = 0.107921 Qual seria o problema que não estou enxergando? [ ], Pedro Rafael Diniz Marinho.

2 1

Problema ao ler arquivo UTF-16 com nulos
by Roberto de Pinho 01 Nov '12

01 Nov '12

Caros, Estou tentando ler o arquivo de servidores disponível no portal da transparência. ( http://arquivos.portaldatransparencia.gov.br/PortalTransparenciaEscolheTipo… - mais de 200MB) É um CSV codificado em UTF-16. No entanto, ele reconhece prematuramente fins de linhas em algumas linhas quando encontra campos com nulo [00 00]. Há valores não nulos não sendo lidos após campos nulos que provocam o reconhecimento de fim de linha. Alguém saberia como poderia fazer com que o R possa ler este arquivo? Estou lendo o arquivo com: servidores = read.table("teste.csv", header = T, sep="\t",quote="",stringsAsFactors=T,fileEncoding="UTF-16", fill=T) o fill=T estou sando para evitar que dê erro de diferente numero de campos. Envio, em anexo, um extrato das primeiras linhas do arquivo. Obrigado pela atenção. ==== Sequencia de bytes que provocam o reconhecimento de nova linha: 09 00 00 00 09 00 00 00 09 00 00 00 09 00 00 00 09 00 00 00 09 00 00 00 09 00 00 00 09 00 00 00 09 00 00 00 09 00 00 00 09 00 00 00 09 00 00 00 09 00 -- Roberto de Pinho robertodepinho(a)gmail.com http://www.ascoisas.com http://lattes.cnpq.br/4816166073408660

7 20