r - 不規則な間隔で xts 時系列の次の N エントリを取得する

Question

適用する関数を書きたい: lapply(new_data,ALGO)

その特定のエントリの前後に 15 個のエントリが必要であり、計算を行って数値を返す必要があります。今まで、私がしていることは次のとおりです。

ALGO <- function(y1) {
  nd.in.y1 <- .indexday(new_data) %in% .indexday(y1)
  low <- last(new_data[nd.in.y1 & index(new_data) < index(y1)],15)
  high <- first(new_data[nd.in.y1 & index(new_data) > index(y1)],15)
  ccc <- rbind(low,high)
  # ...
  # Make some calculations
  # ...
  return(number)
}

このエントリにアクセスするより効率的な方法はありますか? 関数内の時系列の生の数値インデックスにアクセスするようなものですか?

ビッグデータのサブセット化はコストがかかると思いますが、逆に前の 15 個だけを与えると非常に高速になるはずです。