xtsを使用して（弱い）定期的な時系列を遅らせようとしています。Zoo:::lag.zooreg は正しい動作を提供しますが、可能であれば xts に固執したいと思います。以下を xts で動作させる方法について何か提案はありますか?
#create a multivariate regular time series
tmp <- zooreg(data.frame(a=1:10,b=20:11),start=as.yearmon("2012-05-01"),frequency=12)
#july is missing
tmp <- tmp[-3,]
tmp2 <- xts(tmp)
#lag using xts. this doesn't use the weak regularity of the time-series
tmp2$lag1 <- lag(tmp2$a,1)
#what I really want is this behavior with xts (for speed, consistency, etc)
tmp3 <- merge(tmp,lag1=lag(tmp$a,-1),all=c(TRUE,FALSE))
#below is more elegant than merge, but I don't want the extra row for march
#is merge the only way to take care of this?
tmp$lag1 <- lag(tmp$a,-1)
助けてくれてありがとう。