出乎意料的＆＃34;}＆＃34;在自定义功能（R）

Question

我试图创建一个自定义函数，它打算将一个na值估计为两个非na值之间的arithemtic平均值，并设置为数据中的特定na字段（这个估计的有用性不应该是多少）这里的问题）;但不知怎的，我的代码不起作用，我不明白为什么，也许你可以帮助我;这是代码：

#x == Vector of NA's (e.g.: x = which(is.na(y)))
#y == vector/matrix of Data

interpolate = function(x, y){
  c = length(x)
  for (i in 1:c){
    d       = x[i]
    e       = 1
    success = !is.na(y[d+e])
    while (success = FALSE){
      e = e+1
    }
    if (success = TRUE) {
      y[d] = (y[d-1] + y[d+e])/2
      e = 1
    }
  }
}

它产生错误的三倍：意外＆＃39;}＆＃39; in＆＃34; }＆＃34; （...）

Answer 1

R逻辑等于==，而非=。这应该可以解决你的问题