Výpočet průměru na konci sezóny

Teď, když jsi prozkoumalo trendy v datech Red Sox, je čas sestavit několik užitečných ukazatelů. V tomto cvičení vypočítáš průměr výher a proher týmu na konci každé sezóny. Ve finančním světě si to můžeš představit jako hodnotu týmu při uzavření sezóny.

Pro výpočet závěrečného průměru výher a proher budeš kombinovat několik příkazů z předchozích kapitol.

Nejprve určíš výhry na základě skóre jednotlivých zápasů. K tomu použiješ jednoduchý příkaz ifelse() a fakt, že Red Sox vyhráli každý zápas, ve kterém vstřelili více bodů než soupeř.

Potom identifikuješ datum posledního zápasu každé sezóny pomocí endpoints(). Tento příkaz najde v objektu poslední datum v rámci zadaných období.

Nakonec pro výpočet závěrečného průměru výher a proher za každou sezónu použiješ period.apply() na sloupec win_loss svých dat, přičemž jako index zadáš data close a jako funkci mean.

Objekt redsox_xts je dostupný ve tvém pracovním prostředí.

Toto cvičení je součástí kurzu

Případová studie: Analýza časových řad městských dat v R

Zobrazit kurz

Pokyny k cvičení

Pomocí ifelse vypočítej win_loss: hodnota je 1, pokud je boston_score větší než opponent_score, jinak 0.
Pomocí endpoints() identifikuj datum posledního zápasu každé sezóny. Protože baseballové sezóny spadají do jednoho roku, nastav argument on na "years", aby ti příkaz vrátil poslední zápas každého roku. Tato data ulož jako close.
Pomocí period.apply() vypočítej průměr výher a proher na konci sezóny. Zadej sloupec win_loss ze svých dat redsox_xts, data close jako období a mean jako funkci.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

# 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[, "___"], ___, ___)

Upravit a spustit kód