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 个应该非常快。