Extrair jogos de fim de semana

Depois de calcular alguns indicadores úteis a partir dos dados do Red Sox, é hora de ampliar o escopo e explorar dados de outros times esportivos de Boston. Especificamente, você coletou dados adicionais sobre o New England Patriots (futebol americano), o Boston Bruins (hóquei) e o Boston Celtics (basquete). Os dados desses times, junto com seus dados do redsox, foram combinados em um único objeto xts, sports, que agora contém dados de todos os jogos disputados por times da região de Boston de 2010 a 2015.

Antes de avançar com a análise, você quer refinar seus dados em alguns subconjuntos potencialmente úteis. Em particular, pode ser interessante focar exclusivamente nos jogos de fim de semana envolvendo times de Boston.

Para identificar jogos com base no dia da semana, você deve usar o comando .indexwday(), que informa o dia da semana de cada observação no seu objeto xts. Esses valores variam de 0 a 6, sendo domingo igual a 0 e sábado igual a 6.

Este exercício faz parte do curso

Estudo de Caso: Analisando Séries Temporais de Cidades em R

Ver curso

Instruções do exercício

Pratique os comandos de indexação do xts extraindo o dia da semana de cada observação nos seus dados sports usando .indexwday(). Salve esses valores em weekday e visualize as primeiras linhas desse objeto weekday com head().
Crie um índice das observações de fim de semana combinando o comando which() com duas chamadas a .indexwday(). O objetivo é extrair apenas as datas que caem em um sábado ou domingo. Salve esse índice como weekend.
Gere um novo objeto xts (weekend_games) contendo apenas jogos que ocorreram em um fim de semana. Use head() para ver as primeiras linhas do novo objeto weekend_games.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

# 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(___)

Editar e executar o código