Calcula y representa una media móvil
El último indicador de béisbol que quieres generar es el L10, o la media móvil de victorias/derrotas de los diez partidos anteriores. Aunque la media acumulada de victorias/derrotas muestra cómo va el equipo en general, el indicador L10 ofrece una visión más específica del rendimiento reciente del equipo. Fuera del mundo del deporte, esta medida es comparable a un indicador financiero centrado en el rendimiento reciente de una cartera.
Para generar una media móvil de victorias/derrotas, vuelve al comando rollapply() usado en el capítulo anterior. En este caso, querrás aplicar la función mean a los últimos 10 partidos disputados por los Red Sox en cada momento de la temporada 2013.
El objeto redsox_xts, incluida la columna win_loss, está disponible en tu espacio de trabajo.
Este ejercicio forma parte del curso
Estudio de caso: Análisis de series temporales de una ciudad en R
Instrucciones del ejercicio
- Genera un nuevo objeto xts que contenga solo la temporada 2013. Llama a este objeto
redsox_2013. - Usa
rollapply()para calcular tu indicadorlastten_2013a partir de la columnawin_lossenredsox_2013. Establecewidthigual a10para incluir los últimos diez partidos jugados por los Red Sox y establece el argumentoFUNenmeanpara generar una media de la columnawin_loss. - Usa
plot.xts()para visualizar tu nuevo indicador durante la temporada 2013. Deja el argumentoylimtal como está en el código preescrito.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# Select only the 2013 season
redsox_2013 <- ___["___"]
# Use rollapply to generate the last ten average
lastten_2013 <- rollapply(___$___, width = ___, FUN = ___)
# Plot the last ten average during the 2013 season
plot.xts(___, ylim = c(0, 1))