Adicionar uma média móvel contínua aos dados de desemprego

Além de medidas discretas como somas acumuladas no ano, pode ser interessante adicionar uma soma ou média móvel aos seus dados de série temporal.

Para isso, vamos voltar aos seus dados mensais de unemployment. Embora você possa se interessar pelos níveis estáticos de desemprego em um determinado mês, uma visão mais ampla do ambiente econômico pode pedir indicadores móveis ao longo de vários meses.

Para fazer isso, você vai usar o comando rollapply(), que recebe um objeto de série temporal, um tamanho de janela width e um argumento FUN a ser aplicado a cada janela móvel.

Este exercício faz parte do curso

Estudo de Caso: Analisando Séries Temporais de Cidades em R

Ver curso

Instruções do exercício

Use rollapply() para calcular a média móvel anual do desemprego nos EUA. Certifique-se de especificar a coluna us dos seus dados unemployment, definir o argumento width para o número apropriado de períodos mensais e definir o argumento FUN como mean. Salve sua média móvel no objeto unemployment como year_avg.
Plote seus dois indicadores de desemprego nos EUA (us e year_avg) usando plot.zoo(). Defina o argumento plot.type para "single" para colocar as duas medidas no mesmo painel.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

# Use rollapply to calculate the rolling yearly average US unemployment
unemployment$year_avg <- rollapply(___$___, width = ___, FUN = ___)

# Plot all columns of US unemployment data
plot.zoo(unemployment[, c("___", "___")], plot.type = "___", lty = lty, lwd = lwd)

Editar e executar o código