如何在R中的滞后操作中使用矢量

Question

在R中，我们如何在滞后函数中使用矢量而不是元素。即对于Lag（x，k = 2）;而不是2我想使用一个矢量，因为我想用不同的值延迟每一行。因此，一个行可能有3滞后，而1可能是0等

例子：

a #lags d 
1 0  1 
2 1  1 
4 2  1 
3 0  3 
1 1  3 

Answer 1

我想你可能需要编写自己的函数完成这个任务。我写了一个我认为将会是你需要的东西，或者可能指向你正确的方向：

x1 <- c(75,98,65,45,78,94,123,54) #a fake data set for us to lag 
y1 <- c(2,3,1,4,1,2,3,5) #vector of values to lag by 

#the function below takes the data, x1, and lags it by y1 

dynlag <- function(x,y) { 
a1 <- x[length(x)-y] 
return(a1) 
} 

#test out the function 

dynlag(x1,y1) 

希望这有助于。 :)

Answer 2

这里是指数演算的解决方案：

D <- read.table(header=TRUE, text= 
'a lags d 
1 0  1 
2 1  1 
4 2  1 
3 0  3 
1 1  3') 
i <- seq(length(D$a)) 
erg <- D$a[i - D$lags] 
all.equal(erg, D$d)