計算並繪製移動平均
你想產生的最後一個棒球指標是 L10，也就是前 10 場比賽的移動勝負平均。累積勝負平均可以告訴你球隊的整體表現，而 L10 指標則能更具體呈現球隊的近期狀態。除了運動領域之外，這個指標也可類比為著重於「近期」投資組合表現的財務指標。
若要產生移動勝負平均，回到上一章使用過的 rollapply() 指令。在這裡，你會想在 2013 球季中的任一時間點，對紅襪隊最近 10 場比賽套用 mean 函式。
redsox_xts 物件（包含 win_loss 欄）已在你的工作空間中。
本練習屬於課程
個案研究：在 R 中分析城市時間序列資料
練習說明
- 產生只包含 2013 球季的新 xts 物件。將此物件命名為
redsox_2013。 - 使用
rollapply()，根據redsox_2013的win_loss欄位計算lastten_2013指標。將width設為10以涵蓋紅襪隊最近 10 場比賽，並將FUN參數設為mean以計算win_loss欄位的平均值。 - 使用
plot.xts()檢視你在 2013 球季的新指標。保留預先寫好的程式碼中ylim參數的設定不變。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
# 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))