CommencerCommencer gratuitement

Calculer une moyenne de clôture

Maintenant que vous avez exploré quelques tendances dans vos données des Red Sox, vous souhaitez 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 considérer 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.

Premièrement, vous identifierez les victoires en fonction du score de chaque match. Vous pouvez le faire avec un simple ifelse() en sachant que les Red Sox gagnent chaque match où ils marquent plus de points que l’équipe adverse.

Deuxièmement, vous identifierez la date du dernier match de chaque saison à l’aide de endpoints(). Cette commande repère la dernière date de votre objet dans 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 spécifiant les dates de close comme index, et mean comme fonction.

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

Cet exercice fait partie du cours

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

Afficher le cours

Instructions

  • Utilisez ifelse pour calculer win_loss, codé à 1 si boston_score est supérieur à opponent_score et à 0 sinon.
  • Utilisez endpoints() pour identifier la date du dernier match de chaque saison. Comme les saisons de baseball se déroulent sur 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 le nom 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 cet exemple de code.

# 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