如何查看R中的所有超前/滞后值

# 创建一个时间序列
x <- ts(1:10)

# 查看滞后值
lag1 <- lag(x, 1)
lag2 <- lag(x, 2)
print(lag1)
print(lag2)

# 查看超前值
lead1 <- lead(x, 1)
lead2 <- lead(x, 2)
print(lead1)
print(lead2)

Time Series:
Start = 2 
End = 10 
Frequency = 1 
[1] NA  1  2  3  4  5  6  7  8  9

Time Series:
Start = 3 
End = 10 
Frequency = 1 
[1] NA NA  1  2  3  4  5  6  7

Time Series:
Start = 1 
End = 9 
Frequency = 1 
[1]  2  3  4  5  6  7  8  9 10

Time Series:
Start = 1 
End = 8 
Frequency = 1 
[1]  3  4  5  6  7  8  9 NA