我有一个每日的汇率收益率数据，我已经设置成一个时间序列，我的目标是让每一季度的数据加总，得到单个季度的收益率数据。
已有时间序列如下：
> head(cdr_xts)
                   [,1]
2010-01-04 -0.006468614
2010-01-05  0.002576387
2010-01-06  0.004052406
2010-01-07  0.001200528
2010-01-08 -0.004810785
2010-01-11  0.012460225


然后我想让每一季度加总，比如2010-01-04到2010-03-31的数据加总得到一个数据，并且该数据对应时间2010-03-31，最终得到一个新的周期为季度的时间数列或数据框。

我用了如下代码：
> by <- unique(timeLastDayInQuarter(time(cdr_xts)))
> cqr <- aggregate(cdr_xts, by, mean)


但是报错：
> cqr <- aggregate(cdr_xts, by, mean)
Error in aggregate.zoo(cdr_xts, by, mean) :
  length(time(x)) == length(by[[1]]) is not TRUE


求大神帮忙解决，感激不尽！