aggregate命令中的日期格式

Question

我有一个像这样名为cut的数据框

date             Open      AAPL.High        ABT.High       ACN.High
0007-01-04  -0.10089875  -0.730226369      1.524297464    0.619697524
0007-01-05  0.122753233   0.244001748     -0.478851673   -0.646728204
0007-01-08  -0.64223987   0.405351183      0.23971246     1.048819618
0007-01-09  0.253708795   7.179369202      1.071651455    0.187090794

我使用此公式获取每月最高值

cut$date <- as.Date(cut$date,format="%Y-%m-%d")
RMax <- aggregate(cut[,-1],
                  by=list(Month=format(cut$date,"%y-%m")),
                  FUN=max)

但现在我想找到bi每月，三月，甚至45天的最大回报值。我该如何编辑这个公式？