Question

我有数据帧，我迟了多次创建一个具有相同长度的增量滞后数据帧。

library(quatmod)
x<-c(1,2,3,4,6,7,4,2,3,4,3,4,6,7,7,8,9,0,0,9,7,6,4,5,3,2,3,2,3,4,5,6,7,8,8,9,9)

x1<-na.omit(Lag(x,1))
x2<-na.omit(Lag(x,2))
x3<-na.omit(Lag(x,3))
x4<-na.omit(Lag(x,4))
x5<-na.omit(Lag(x,5))
x6<-na.omit(Lag(x,6))
x7<-na.omit(Lag(x,7))

short<-min(length(x1),length(x2),length(x3),length(x4),length(x5),length(x6),length(x7))
x1<-tail(x1,short)
x2<-tail(x2,short)
x3<-tail(x3,short)
x4<-tail(x4,short)
x5<-tail(x5,short)
x6<-tail(x6,short)
x7<-tail(x7,short)

xlag<-data.frame(x1,x2,x3,x4,x5,x6,x7)

我想知道这个表达式是否可以通过函数

提高效率

谢谢

Answer 1

这个怎么样：

maxlag <- 7;
sapply(maxlag:1, function(i) x[i:(i+(length(x)-maxlag-1))])

或者，如果您的最大延迟和x的长度是静态的，甚至更简单：

sapply(7:1, function(i) x[i:(i+29)])

Answer 2

让n成为你的最大滞后。您的代码可以减少到一行。

xlag = tail(Lag(x, 1:n), length(x)-n)

创建增量滞后数据框

2 个答案: