Pau*_*les 3 r vector moving-average
我想获取一个数字向量,然后使用指定的窗口宽度和步幅,我想通过向量向下运行,通过它们的步幅捕获每个窗口的平均值。我可以对此进行编码,但我想知道是否有更简洁的包装方式等......?
实现您需要的一种方法是使用rollapplyfrom zoopackage。
library(zoo)
rollapply(x, width = 7, by = 4, mean)
#[1] 622.1429 682.8571 540.7143
数据
x <-c(267, 497, 836, 498, 923, 836, 498, 923, 267, 497, 836, 498, 923, 267, 497)