Lista 02
Fernanda Lopes Johnston
27/05/2020
Item 1
Importe o arquivo02.csv utilizando o pacote readr.
## Importanado dados do IPCA
ipca <- ts(read.csv2('arquivo02.csv', header=T, sep=';', dec=',')[,-1],
start=c(1994,07), freq=12)
Item 2
A série importada é um número índice de preços (IPCA). Pede-se que você obtenha a inflação mensal e
acumulada em 12 meses.
inflacao <- (ipca/lag(ipca,-1)-1)*100 ##(é a taxa de crescimento do índice de preços mensalmente)
inflacao_12 <- (ipca/lag(ipca,-12)-1)*100 ## (é a taxa de crescimento do índice de preços dos ultimos 12
Ítem 3
Decompanha as séries de inflação.
plot(decompose(inflacao)) ## com a função decompose podemos identificar a tendencia, a sazonalidade e o
1
Decomposition of additive time series
observed
2.5
1.0
1.5 −0.5
trend
0.5
0.2
random seasonal
0.0 −0.2
0.5 1.5
−1.0
1995 2000 2005 2010 2015
Time
plot(decompose(inflacao_12)) ## com a função decompose podemos identificar a tendencia, a sazonalidade e
2
Decomposition of additive time series
25
observed
15
5
trend
15
5
random seasonal
0.05
0 1 2−0.05
−2
1995 2000 2005 2010 2015
Time
Ítem 4
Construa um gráfico de sazonalidade para a inflação mensal.
library(forecast)
## Registered S3 method overwritten by 'quantmod':
## method from
## as.zoo.data.frame zoo
ggmonthplot(inflacao)
3
3
2
x
Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
Month
Ítem 5
É possível dizer que as séries são estacionárias? R: Sim, é possível dizer que a série da inflação é estacionária