以不规则间距获得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个应该非常快。