Výpočet a vizualizace klouzavého průměru

Posledním baseballovým ukazatelem, který chceš vygenerovat, je L10 – klouzavý průměr výher a proher z posledních deseti zápasů. Zatímco kumulativní průměr výher a proher říká, jak si tým vede celkově, ukazatel L10 poskytuje konkrétnější obrázek o jeho nedávné formě. Mimo svět sportu je tato metrika srovnatelná s finančním ukazatelem zaměřeným na nedávnou výkonnost portfolia.

Pro výpočet klouzavého průměru výher a proher se vrať k příkazu rollapply() použitému v předchozí kapitole. Tentokrát chceš aplikovat funkci mean na posledních 10 zápasů Red Sox v libovolném okamžiku sezóny 2013.

Objekt redsox_xts včetně sloupce win_loss máš k dispozici ve své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í

Vytvoř nový objekt xts obsahující pouze sezónu 2013. Pojmenuj ho redsox_2013.
Pomocí rollapply() vypočítej ukazatel lastten_2013 ze sloupce win_loss v objektu redsox_2013. Nastav width na 10, aby byly zahrnuty poslední odehrané zápasy Red Sox, a argument FUN nastav na mean pro výpočet průměru sloupce win_loss.
Pomocí plot.xts() si zobraz nový ukazatel pro sezónu 2013. Argument ylim nechej tak, jak je v předpřipraveném kódu.

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

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

# Select only the 2013 season
redsox_2013 <- ___["___"]

# Use rollapply to generate the last ten average
lastten_2013 <- rollapply(___$___, width = ___, FUN = ___)

# Plot the last ten average during the 2013 season
plot.xts(___, ylim = c(0, 1))

Upravit a spustit kód