1. Učit se
    2. /
  2. Projekty
    3. /
  3. Případová studie: Analýza časových řad městských dat v R
Connected

cvičení

Výpočet klouzavého průměru přes všechny sporty

Teď, když už zvládáš filtrovat data jen na víkendové zápasy, chce klient zkusit jiný přístup. Cestovní ruch v Bostonu možná roste, když místní sportovní týmy vyhrávají více zápasů doma.

Místo víkendových zápasů máš za úkol vypočítat klouzavý průměr výher a proher pro zápasy odehrané v Bostonu. K tomu se vrátíš k příkazu rollapply() z předchozího cvičení – tentokrát ho použiješ na všechny bostonské sportovní týmy a vyfiltruje pouze domácí zápasy.

Pokyny

100 XP
  • Vyfiltruj data sports tak, aby obsahovala pouze domácí zápasy v Bostonu (homegame = 1), a to ve formátu data[column == x]. Výsledek ulož do nového objektu homegames.
  • Pomocí rollapply() vypočítej klouzavý průměr výher a proher za posledních 20 domácích zápasů bostonských týmů. Zadej sloupec win_loss z dat homegames, nastav width na 20 a argument FUN na mean. Výsledek ulož do objektu homegames jako win_loss_20.
  • Podobným voláním rollapply() vypočítej klouzavý průměr výher a proher za 100 zápasů. Výsledek ulož do objektu homegames jako win_loss_100.
  • Pomocí plot.zoo() vizualizuj oba ukazatele. Nezapomeň vybrat sloupce win_loss_20 a win_loss_100 a nastav argument plot.type na "single", aby se oba zobrazily ve stejném panelu. Argumenty lty a lwd nech beze změny.