Выявление локальных максимумов с использованием операторов For & If в R

Question

Я пытаюсь построить цикл for с вложенным оператором if для проверки максимальных значений в векторе.Я надеюсь взять этот код и применить его к данным спектра.

Сейчас возвращается ошибка, я не знаю, как ее устранить.Нужно ли разбивать логические операторы в операторе 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]