Tengo un marco de datos que me retrasa varias veces para crear un marco de datos retrasado incremental que tenga la misma longitud.
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)
Me pregunto si estas expresiones podrían hacerse más eficientes a través de una función.
Gracias
Respuestas
1 para la respuesta № 1¿Qué pasa con esto?
maxlag <- 7;
sapply(maxlag:1, function(i) x[i:(i+(length(x)-maxlag-1))])
O si su retraso máximo y la longitud de x
Son estáticos, incluso más simples:
sapply(7:1, function(i) x[i:(i+29)])
1 para la respuesta № 2
Sea n tu máximo retraso. Su código puede reducirse a una línea.
xlag = tail(Lag(x, 1:n), length(x)-n)