具有大端点的 period.apply 函数

编程问答 2022-04-21

问题描述

我有一个时间序列，想使用 period.apply() 函数 xts 库来估计 377 天的平均值

可重现的例子如下

zoo.data <- zoo(rnorm(5031)+10,as.Date(13514:17744,origin="1970-01-01"))
ep <- endpoints(zoo.data,'days',k =377)
period.apply(zoo.data,INDEX=ep,FUN=function(x) mean(x))

生成的输出为

2007-05-28 2007-12-31 2008-10-05 2008-12-31 2009-02-02 2009-12-31 
  9.905663   9.800760  10.006344  10.052163  10.152453  10.032073 
2010-06-13 2010-12-31 2011-10-22 2011-12-31 2012-02-18 2012-12-31 
  9.879439  10.038644   9.957582   9.977026   9.959094  10.004348 
2013-06-29 2013-12-31 2014-11-07 2014-12-31 2015-03-06 2015-12-31 
 10.004620  10.086071   9.902875   9.843695   9.851306  10.072610 
2016-07-14 2016-12-31 2017-11-23 2017-12-31 2018-03-22 2018-08-01 
  9.966911  10.199251  10.001628  10.263590  10.181235  10.059080

输出是意外的，因为每个日期的差异不是 377。输出显示它在年末 20xx-12-31 停止，然后再移动到下一个端点

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

endpointrrtime-seriesxtszoo