Zoo滞后差异在数据框中

Question

我想将滞后差异的结果放回我的数据框中。这意味着我会为不同的滞后领导NAs。

我正在使用：

new.df$lag1 <- diff(new.df$Close, lag = 1, differences = 1, arithmetic = TRUE, na.pad = TRUE)
Error in `$<-.data.frame`(`*tmp*`, lag1, value = c(0.248860000000001,  : 
  replacement has 6177 rows, data has 6178

我认为如果它说na.pad = TRUE那么这将在第1行放置NA并在第2行放置滞后差异。事实并非如此。

以下是一些样本数据：

data <- c(10,15,89,40,55,67,79)

lag1 <- diff(data, lag = 1, differences = 1, arithmetic = TRUE, na.pad = TRUE)

目标是将其重新放入数据框中......根据滞后的数量，使用超前NA。