不规则时间序列滞后（xts）

Question

我有以下不规则时间序列（xts）数据。

v <- c(1:2, 4:7, 9:11)
x <- xts(v, as.Date("2016-07-20") + v)
x
           [,1]
2016-07-21    1
2016-07-22    2
2016-07-24    4
2016-07-25    5
2016-07-26    6
2016-07-27    7
2016-07-29    9
2016-07-30   10
2016-07-31   11

假设＆＃34; 2016-07-30＆＃34;和＃34; 2016-07-31＆＃34;，我想要一周前的价值（即＆＃34; 2016-07-23＆＃34;和＃34; 2016-07-24＆＃34;）。因此，当我lag(x,7)时，它会提供＆＃34; 2016-07-21＆＃34;的数据。和＆＃34; 2016-07-22＆＃34;。

lag(x,7)
           [,1]
2016-07-21   NA
2016-07-22   NA
2016-07-24   NA
2016-07-25   NA
2016-07-26   NA
2016-07-27   NA
2016-07-29   NA
2016-07-30    1
2016-07-31    2

我想知道xts中是否有一个函数给我一个值＆＃34; 2016-07-23＆＃34; on＆＃34; 2016-07-30＆＃34;和＃34; 2016-07-24＆＃34; on＆＃34; 2016-07-31＆＃34;如果可用，如果不可用则返回NA。

预期产出：

2016-07-30   NA
2016-07-31   4

P.S。我知道如何使用间接方法。