ComenzarEmpieza gratis

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

Ver curso

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 indicador lastten_2013 a partir de la columna win_loss en redsox_2013. Establece width igual a 10 para incluir los últimos diez partidos jugados por los Red Sox y establece el argumento FUN en mean para generar una media de la columna win_loss.
  • Usa plot.xts() para visualizar tu nuevo indicador durante la temporada 2013. Deja el argumento ylim tal 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))
Editar y ejecutar código