关于函数sapply的使用问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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的话应该怎么办呢，还望大神指点迷津

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：apply appl App SAP High

1. #
   
2. a <- vector(mode = 'integer')
   
3. for(i in 1:3) {
   
4.   a[i] <- i+1
   
5. }
   
6. #
   
7. b <- sapply(1:3, function(i) {
   
8.   return(i+1)
   
9. })

复制代码