lag 没有像我预期的那样工作
a<-c(0,1,2,3,4,5,6,7,8)
a
## [1] 0 1 2 3 4 5 6 7 8
lag(a,k=1)
## [1] 0 1 2 3 4 5 6 7 8
## attr(,"tsp")
## [1] 0 8 1
Run Code Online (Sandbox Code Playgroud)
我以为我会得到:
0 0 1 2 3 4 5 6 7
Run Code Online (Sandbox Code Playgroud)
要么
1 2 3 4 5 6 7 8 0
Run Code Online (Sandbox Code Playgroud)
我究竟做错了什么?
你应该Lag从Hmisc包中使用:
library(Hmisc)
Lag(c(0,1,2,3,4,5,6,7,8), shift = 1)
# [1] NA 0 1 2 3 4 5 6 7
Run Code Online (Sandbox Code Playgroud)