Calcular uma média de fechamento

Agora que você explorou algumas tendências nos dados do Red Sox, você quer produzir alguns indicadores úteis. Neste exercício, você vai calcular a média de vitórias/derrotas do time no final de cada temporada. Em termos financeiros, você pode pensar nisso como o valor do time no fechamento da temporada.

Para calcular uma média de vitórias/derrotas de fechamento, você precisará combinar alguns dos comandos usados nos capítulos anteriores.

Primeiro, você vai identificar vitórias com base no placar de cada jogo. Dá para fazer isso com um simples ifelse() e com o conhecimento de que o Red Sox vence cada jogo em que marca mais pontos do que o time adversário.

Depois, você vai identificar a data do último jogo de cada temporada usando endpoints(). Esse comando identifica a última data no seu objeto dentro de certos períodos.

Por fim, para calcular a média de vitórias/derrotas no fechamento de cada temporada, basta usar period.apply na coluna win_loss dos seus dados, especificando as datas de close como índice e mean como função.

O objeto redsox_xts está disponível no seu workspace.

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

Use ifelse para calcular win_loss, codificado como 1 quando boston_score for maior que opponent_score e 0 caso contrário.
Use endpoints() para identificar a data do último jogo de cada temporada. Como as temporadas de baseball estão contidas em um único ano, você pode definir o argumento on como "years" para obter o jogo final de cada ano. Salve essas datas como close.
Use period.apply() para calcular a média de vitórias/derrotas no fechamento da temporada. Especifique a coluna win_loss dos seus dados redsox_xts, as datas close como o período e mean como a função.

Exercício interativo prático

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

# Generate a new variable coding for red sox wins
redsox_xts$win_loss <- ifelse(redsox_xts$___ > redsox_xts$___, 1, 0)

# Identify the date of the last game each season
close <- endpoints(___, on = "___")

# Calculate average win/loss record at the end of each season
period.apply(redsox_xts[, "___"], ___, ___)

Editar e executar o código