r - 错误：在 while 循环中缺少 TRUE/FALSE 的值

Question

我正在尝试使用 while 循环编写程序：

n=50
sum=array(0,n)
sum[1]=0
for(k in 1:n)
{
   sum[k+1]=sum[k]+k
   while((sum[k+1]-sum[k])<10)
   {
      print(sum[k+1])
      k=k+1
   }
}
sample=data.frame(Sum=sum) sample

它的显示：

Error in while ((sum[k + 1] - sum[k]) < 10) { : 
  missing value where TRUE/FALSE needed

谁能告诉这段代码有什么问题？

Answer 1

在第二次迭代中sum[k+1] = NA，因为它将被评估为：

(sum[2+1]-sum[1])<10sum[2+1] = sum[3]在哪里NA。所以(sum[k+1]-sum[k])<10不会被评估为TRUE/FALSE之一。

Iteration (k) | sum[k+1]-sum[k]
--------------+------------------
      1       | sum[2] - sum[1]   They're both known
      2       | sum[3] - sum[2]   What is sum[3]? (NA)