CommencezCommencez gratuitement

Calculer une moyenne de clôture

Maintenant que vous avez exploré certaines tendances dans les données des Red Sox, vous voulez produire des indicateurs utiles. Dans cet exercice, vous allez calculer la moyenne victoires/défaites de l'équipe à la fin de chaque saison. En termes financiers, vous pouvez voir cela comme la valeur de l'équipe à la clôture de la saison.

Pour calculer une moyenne de clôture victoires/défaites, vous devrez combiner quelques commandes utilisées dans les chapitres précédents.

D'abord, vous identifierez les victoires selon le pointage de chaque match. Vous pouvez le faire avec un simple ifelse() en vous basant sur le fait que les Red Sox gagnent chaque match où ils marquent plus de points que l'équipe adverse.

Ensuite, vous repérerez la date du dernier match de chaque saison en utilisant endpoints(). Cette commande trouve la dernière date dans votre objet pour des périodes données.

Enfin, pour calculer la moyenne de clôture victoires/défaites chaque saison, utilisez simplement period.apply() sur la colonne win_loss de vos données, en précisant les dates de close comme indice et mean comme fonction.

L'objet redsox_xts est disponible dans votre espace de travail.

Cette activité fait partie du cours

Étude de cas : analyser des séries chronologiques urbaines en R

Voir le cours

Instructions de l’exercice

  • Utilisez ifelse pour calculer win_loss, qui vaut 1 si boston_score est supérieur à opponent_score et 0 sinon.
  • Utilisez endpoints() pour déterminer la date du dernier match de chaque saison. Comme les saisons de baseball tiennent dans une seule année, vous pouvez définir l'argument on à "years" pour obtenir le dernier match de chaque année. Enregistrez ces dates sous close.
  • Utilisez period.apply() pour calculer la moyenne victoires/défaites à la clôture de la saison. Indiquez la colonne win_loss de vos données redsox_xts, les dates close comme période, et mean comme fonction.

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

# 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[, "___"], ___, ___)
Modifier et exécuter le code