自定义函数 (R) 中出现意外的“}”

Unexpected "}" in custom function (R)

我试图创建一个自定义函数,该函数旨在将 na 值估计为两个非 na 值之间的算术平均值,并设置到数据中的特定 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
    }
  }
}

它产生三倍的错误:“}”中出现意外的“}”(...)

R 逻辑等于 ==,而不是 =。那应该可以解决您的问题