在R中使用For＆If语句标识本地千里马

Question

我试图用嵌套的if语句构建一个for循环，以检查向量中的最大值。我希望采用此代码并将其应用于频谱数据。

现在，它返回一个我不确定如何解决问题的错误。我是否需要在If语句中拆分逻辑运算符？

代码：

r <- c(1, 2, 3, 4, 5, 4, 3, 4, 5, 6, 7)
Peaks <- c()
indPeaks <- c()
length(r)
for(x in length(r)) {
 if((r[x-1]<r[x] & r[x+1]<r[x])==TRUE){
    Peaks <-r[x]
    indPeaks <- which(r == r[x])
  }
}

  

if（（r [x-1]