功能的滞后资金

Question

我知道如何利用滞后的区别：

delX = diff(x) 

但我知道只有这样才能采取滞后总和：

sumY = apply(embed(c(0,y),2),1, sum) 

是否有可以采取的函数滞后的总和？这种方式（或以其他方式滑动索引）不是很直观。

Answer 1

您正在寻找filter：

x <- 1:10 
filter(x, filter=c(1,1), sides=1) 
# [1] NA 3 5 7 9 11 13 15 17 19 

你也可以使用head和tail：

head(x, -1) + tail(x, -1) 
# [1] 3 5 7 9 11 13 15 17 19 

Answer 2

两个更多的选择：

x <- 1:10 
x + dplyr::lag(x) 
# [1] NA 3 5 7 9 11 13 15 17 19 
x + data.table::shift(x) 
# [1] NA 3 5 7 9 11 13 15 17 19 

注意，你可以很容易地改变两个函数中的滞后数。您也可以使用dplyr::lead()或data.table::shift(x, 1L, type = "lead")创建主导向量，而不是滞后。这两个函数还允许您指定默认值（默认值为NA）。