Extraer los partidos de fin de semana
Después de calcular algunos indicadores útiles con tus datos de los Red Sox, toca dar un paso atrás y explorar datos de otros equipos deportivos de Boston. En concreto, has recopilado datos adicionales de los New England Patriots (fútbol americano), los Boston Bruins (hockey) y los Boston Celtics (baloncesto). Los datos de estos equipos, junto con tus datos de redsox, se han combinado en un único objeto xts, sports, que ahora contiene información sobre todos los partidos disputados por equipos del área de Boston entre 2010 y 2015.
Antes de seguir analizando, quieres depurar tus datos en algunos subconjuntos potencialmente útiles. En particular, puede ser interesante centrarse exclusivamente en los partidos de fin de semana en los que participan equipos de Boston.
Para identificar partidos según el día de la semana, debes usar el comando .indexwday(), que te indica el día de la semana de cada observación en tu objeto xts. Estos valores van de 0 a 6, donde el domingo es 0 y el sábado es 6.
Este ejercicio forma parte del curso
Estudio de caso: Análisis de series temporales de una ciudad en R
Instrucciones del ejercicio
- Practica con los comandos de indexación de xts extrayendo el día de la semana de cada observación en tus datos
sportscon.indexwday(). Guarda estos valores enweekdayy visualiza las primeras filas de este objetoweekdayconhead(). - Crea un índice de observaciones de fin de semana combinando el comando
which()con dos llamadas a.indexwday(). El objetivo es extraer solo aquellas fechas que caen en sábado o domingo. Guarda este índice comoweekend. - Genera un nuevo objeto xts (
weekend_games) que contenga solo los partidos que caen en fin de semana. Usahead()para ver las primeras filas de tu nuevo objetoweekend_games.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# Extract the day of the week of each observation
weekday <- .indexwday(___)
head(___)
# Generate an index of weekend dates
weekend <- which(.indexwday(___) == ___ | .indexwday(___) == ___)
# Subset only weekend games
weekend_games <- sports[___]
head(___)