カスタム関数（R）で予期しない "}"

Question

私は2つの非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 
    } 
    } 
} 

それは三回のエラーを生成します。予期しない '}' "}" で（...）に等しい

Answer 1

Rロジックは==なく、=です。あなたの問題を解決するはずです