High1 <- function(vol, k = 5){
  # 计算成交量波峰
  
  #
  ind <- vector()
  for(i in (k + 1) : (length(vol) - k)){
    if(max(vol[(i - k) : (i + k)]) == vol[i]){
      ind <- c(ind, i)
    }
   
  }
  return(ind)
}

求教大神，我这个用的是for循环，请问可以改成sapply函数吗？，因为程序返回中用到了 i  ，要是改sapply的话应该怎么办呢，还望大神指点迷津