library(dyn)

x <- ts(seq(15))
y <- lag(x, -1, na.pad = TRUE)
cbind(x, y)

> cbind(x, y)
Time Series:
Start = 1
End = 16
Frequency = 1
    x  y
1  1 NA
2  2  1
3  3  2
4  4  3
5  5  4
6  6  5
7  7  6
8  8  7
9  9  8
10 10  9
11 11 10
12 12 11
13 13 12
14 14 13
15 15 14
16 NA 15

> x <- ts(seq(15))
> y <- lag(x, -1, na.pad = TRUE)
> data<-cbind(x, y)
> data[2:length(x),]
       x  y
[1,]  2  1
[2,]  3  2
[3,]  4  3
[4,]  5  4
[5,]  6  5
[6,]  7  6
[7,]  8  7
[8,]  9  8
[9,] 10  9
[10,] 11 10
[11,] 12 11
[12,] 13 12
[13,] 14 13
[14,] 15 14
>