while if语句循环不起作用

Question

我有一个像这样的代码块：

while(i < 35)
{ 
  m<-strsplit(datalist[i],split=",")
  m<-sapply(m,as.numeric)
  m<-c(m)
  dif<- m-eingabe

  mnear<-sum(dif^2)

  if(mnear < near)
  {
    near<-mnear
    position<-i
  }
  i<-i+1
}
i

我的问题是WHILE只计算 8 ，直到 35 。如果我发送if声明它的工作正确，直到 35 。 （我在While中需要这个If语句）如何解决这个问题？

更新

我收到此警告信息：

Error in if (mnear < near) { : missing value where TRUE/FALSE needed
In addition: Warning messages:
1: In lapply(X = X, FUN = FUN, ...) : NAs introduced by coercion
2: In m - eingabe :
  longer object length is not a multiple of shorter object length