Añade una media móvil continua a los datos de desempleo
Además de medidas discretas como las sumas acumuladas del año, puede interesarte añadir una suma o media móvil a tu serie temporal.
Para hacerlo, volvamos a tus datos mensuales de unemployment. Aunque puede interesarte el nivel estático de desempleo en un mes dado, para tener una visión más amplia del entorno económico conviene usar indicadores móviles a lo largo de varios meses.
Para ello, usarás el comando rollapply(), que toma un objeto de serie temporal, un tamaño de ventana width y un argumento FUN que se aplica a cada ventana móvil.
Este ejercicio forma parte del curso
Estudio de caso: Análisis de series temporales de una ciudad en R
Instrucciones del ejercicio
- Usa
rollapply()para calcular la media móvil anual del desempleo de EE. UU. Asegúrate de especificar la columnausde tus datosunemployment, establecer el argumentowidthal número adecuado de periodos mensuales y definir el argumentoFUNcomomean. Guarda tu media móvil en tu objetounemploymentcomoyear_avg. - Representa tus dos indicadores de desempleo de EE. UU. (
usyyear_avg) usandoplot.zoo(). Establece el argumentoplot.typea"single"para colocar ambas medidas en el mismo panel.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# 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)