LoslegenKostenlos loslegen

Schlussdurchschnitt berechnen

Nachdem du einige Trends in deinen Red-Sox-Daten untersucht hast, möchtest du hilfreiche Kennzahlen erstellen. In dieser Übung berechnest du den Sieg/Niederlage-Durchschnitt des Teams am Ende jeder Saison. In Finanzterminologie kannst du das als den Wert des Teams zum Schlusskurs der Saison verstehen.

Um einen Schlussdurchschnitt der Siege/Niederlagen zu berechnen, musst du einige Befehle aus früheren Kapiteln kombinieren.

Zuerst identifizierst du Siege anhand des Punktestands jedes Spiels. Das kannst du mit einem einfachen ifelse()-Befehl tun und mit dem Wissen, dass die Red Sox jedes Spiel gewinnen, in dem sie mehr Punkte erzielen als das gegnerische Team.

Zweitens identifizierst du das Datum des letzten Spiels jeder Saison mit endpoints(). Dieser Befehl liefert das letzte Datum in deinem Objekt innerhalb bestimmter Perioden.

Schließlich berechnest du den Schlussdurchschnitt der Siege/Niederlagen jeder Saison, indem du period.apply() auf die Spalte win_loss deiner Daten anwendest, die close-Daten als Index angibst und mean als Funktion nutzt.

Das Objekt redsox_xts steht dir in deinem Arbeitsbereich zur Verfügung.

Diese Übung ist Teil des Kurses

Fallstudie: Zeitreihendaten von Städten in R analysieren

Kurs anzeigen

Anleitung zur Übung

  • Verwende ifelse, um win_loss zu berechnen: 1, wenn boston_score größer ist als opponent_score, andernfalls 0.
  • Verwende endpoints(), um das Datum des letzten Spiels jeder Saison zu ermitteln. Da Baseballsaisons in einem einzigen Jahr liegen, kannst du das Argument on auf "years" setzen, um das letzte Spiel jedes Jahres zu erhalten. Speichere diese Daten als close.
  • Verwende period.apply(), um den Sieg/Niederlage-Durchschnitt zum Saisonende zu berechnen. Gib die Spalte win_loss deiner redsox_xts-Daten an, die close-Daten als Zeitraum und mean als Funktion.

Interaktive Übung

Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.

# 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[, "___"], ___, ___)
Code bearbeiten und ausführen