改进R中的光栅操作

Question

我在验证值是否为NA后，尝试将某个值添加到R中的栅格对象。我需要反复执行这段代码100次。但是，我觉得它很慢。有人可以建议我优化这段代码以提高速度。我是编程/ R的业余爱好者。提前谢谢。

for(i in 1:2077730)
{
 val<-two[i]+nerr[i]
   while(!is.na(val))
    {
     ifelse(two[i]>0,two[i]<-val,two[i]<-0)
    }
}

Answer 1

idx <- two > 0
two[!idx] <- 0
two[idx] <- two[idx] + nerr[idx]

这是你想要做的吗？