Momento R do Dia – Então você baixou os dados do IPEADATA…

Eis meu problema. Tenho a série da variação do PIB trimestral e preciso do desemprego também trimestralmente. O ponto é que não temos a medida do desemprego trimestral, apenas mensal.

Sei que há problemas em se agregar dados no tempo, mas preciso fazer isto. Do IPEADATA, obtive o desemprego mensal e usei o pacote zoo para importar os dados em formato de séries de tempo (há formas mais simples de se fazer isto, mas não custa aprender um jeito novo…).

Assim, após importar os dados, criei um objeto de séries de tempo anexando a data aos valores do desemprego e, finalmente, usei o comando aggregate para criar as médias trimestrais.

library(zoo)
date2<-seq(as.Date("2002-03-01"), as.Date("2015-05-01"), by="month")
data2<-read.csv("C:/meudiretorio/desemprego.csv",header=TRUE, sep=",",na.strings="NA", dec=".", strip.white=TRUE)
head(data2)
data2<-c((data2$desemp))
data2 <- zoo(data2, date2) 
plot(data2) 
data2q.mean <- aggregate(data2, as.yearqtr, mean) 

Pronto, a série já está em frequência trimestral e seus valores são as médias aritméticas trimestrais simples. O resto do trabalho? Bem, isto é outra história…

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s