R 滚动百分位数

我的数据集的小型代表：

TEAM1 <- c("ATL", "CHI", "CLE", "DET", "GSW", "NOP", "BKN","ATL", "PHI","CHI")
HOME.AWAY <- c("vs.", "vs.", "@", "@", "vs.", "@", "vs.","vs.", "@","@")
TEAM2 <- c("DET", "CLE", "CHI", "ATL", "NOP", "GSW", "CHI","PHI", "ATL","BKN")
DATE <- as.Date(c("2015-05-14", "2015-05-14", "2015-05-14",
       "2015-05-14","2015-05-14", "2015-05-14", "2015-05-15","2015-05-15",
       "2015-05-15","2015-05-15"))
PTS <- c(94, 97, 95, 106, 111, 95, 100,112,87, 94)
df <- data.frame(TEAM1,HOME.AWAY,TEAM2,PTS,DATE)

df

   TEAM1 HOME.AWAY TEAM2 PTS       DATE
   ATL       vs.   DET  94 2015-05-14
   CHI       vs.   CLE  97 2015-05-14
   CLE         @   CHI  95 2015-05-14
   DET         @   ATL 106 2015-05-14
   GSW       vs.   NOP 111 2015-05-14
   NOP         @   GSW  95 2015-05-14
   BKN       vs.   CHI 100 2015-05-15
   ATL       vs.   PHI 112 2015-05-15
   PHI         @   ATL  87 2015-05-15
   CHI       vs.   BKN  94 2015-05-15

---

TEAM1所以
runMean
和
runmedia
似乎来自
TTR
包，对吗？您可以将此添加到您的代码中吗？检查包
caTools
中的
runquantile
：谢谢。您将如何使用runquantile函数？这对我不起作用。
df<- df[order(df$DATE),]

df <- df %>% group_by(TEAM1) %>% 
  mutate(PTS_YTD = lag(runMean(PTS, n=1, cumulative=TRUE),1))

df <- df %>% group_by(TEAM1) %>% 
  mutate(PTS_YTD = lag(runMedian(PTS, n=1, cumulative=TRUE),1))