Lag operator
dlag(data, x, k = 1, combine = TRUE, simplify = TRUE, names, ...)data.frame or vector
optional column names or formula
lag (vector of integers)
combine results with original data.frame
Return vector if possible
optional new column names
additional arguments to lower level functions
d <- data.frame(y=1:10,x=c(10:1))
dlag(d,k=1:2)
#> y x y.1 y.2 x.1 x.2
#> 1 1 10 NA NA NA NA
#> 2 2 9 1 NA 10 NA
#> 3 3 8 2 1 9 10
#> 4 4 7 3 2 8 9
#> 5 5 6 4 3 7 8
#> 6 6 5 5 4 6 7
#> 7 7 4 6 5 5 6
#> 8 8 3 7 6 4 5
#> 9 9 2 8 7 3 4
#> 10 10 1 9 8 2 3
dlag(d,~x,k=0:1)
#> y x x.0 x.1
#> 1 1 10 10 NA
#> 2 2 9 9 10
#> 3 3 8 8 9
#> 4 4 7 7 8
#> 5 5 6 6 7
#> 6 6 5 5 6
#> 7 7 4 4 5
#> 8 8 3 3 4
#> 9 9 2 2 3
#> 10 10 1 1 2
dlag(d$x,k=1)
#> [1] NA 10 9 8 7 6 5 4 3 2
dlag(d$x,k=-1:2, names=letters[1:4])
#> a b c d
#> [1,] 9 10 NA NA
#> [2,] 8 9 10 NA
#> [3,] 7 8 9 10
#> [4,] 6 7 8 9
#> [5,] 5 6 7 8
#> [6,] 4 5 6 7
#> [7,] 3 4 5 6
#> [8,] 2 3 4 5
#> [9,] 1 2 3 4
#> [10,] NA 1 2 3