Calcule e plote uma média móvel
O último indicador de baseball que você quer gerar é o L10, ou a média móvel de vitórias/derrotas dos últimos dez jogos. Enquanto a média acumulada de vitórias/derrotas mostra como o time está no geral, o indicador L10 dá um retrato mais específico do desempenho recente do time. Fora do mundo dos esportes, essa medida é comparável a um indicador financeiro focado no desempenho recente de uma carteira.
Para gerar uma média móvel de vitórias/derrotas, volte ao comando rollapply() usado no capítulo anterior. Neste caso, você vai aplicar a função mean aos últimos 10 jogos disputados pelo Red Sox em qualquer momento da temporada de 2013.
O objeto redsox_xts, incluindo a coluna win_loss, está disponível no seu workspace.
Este exercício faz parte do curso
Estudo de Caso: Analisando Séries Temporais de Cidades em R
Instruções do exercício
- Gere um novo objeto xts contendo apenas a temporada de 2013. Chame esse objeto de
redsox_2013. - Use
rollapply()para calcular seu indicadorlastten_2013com base na colunawin_lossemredsox_2013. Definawidthigual a10para incluir os últimos dez jogos do Red Sox e defina o argumentoFUNcomomeanpara gerar uma média da colunawin_loss. - Use
plot.xts()para visualizar seu novo indicador durante a temporada de 2013. Deixe o argumentoylimcomo está no código pré-escrito.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
# 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))