R语言求极大值，循环提示：【Error in if (x[i-1,]>x[i,]&x[

Minimum<-function(x){
  n<-nrow(x)
  x_min<-matrix(0,nrow = n)
  if(x[2,]>x[1,]){
    x_min[1,]<-x[1,]
  }
  if(x[n-1,]>x[n,]){
    x_min[n,]<-x[n,]
  }
  for (i in 2:n-1) {
    if(x[i-1,]>x[i,]&x[i+1,]>x[i,]){
      x_min[i,]<-x[i,]
    }
  }
}

自己写的求局部极小值的函数代码如上，现有一向量y，nrow=192。要求y的所有局部极小值点。

输入y_min<-Minimum(y),提示：

Error in if (x[i - 1, ] > x[i, ] & x[i + 1, ] > x[i, ]) { : 
  argument is of length zero