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

百思不得其解，求大神解惑。