EmpezarEmpieza 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 completando este código de ejemplo.

# 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