循环对 R 中的时间序列的观察求和

Question

我确定这很明显，但我是 R 的初学者，我花了一个下午的大部分时间试图解决这个问题......

我正在尝试创建一个循环，以五步为单位对我的时间序列中的观察进行总结。

例如：

输入：
1 2 3 4 5 5 6 6 7 4 5 5 4 4 5 6 5 6 4 4

输出：15 28 23 25

我的时间序列只有一个变量，并且有 7825 次观察。

循环的最终目的是计算每周实现的波动率。我的观察是平方回报。一旦我有了我的循环，我将能够提取平方根并获得每周实现的波动率。

非常感谢您提供的任何帮助。

H。

Answer 1

我们可以创建一个分组变量gl并用它来获得sum在tapply

tapply(input, as.integer(gl(length(input), 5, length(input))), 
          FUN = sum, na.rm = TRUE)
# 1  2  3  4 
# 15 28 23 25

input <- scan(text = "1 2 3 4 5 5 6 6 7 4 5 5 4 4 5 6 5 6 4 4", what = numeric())