小于 100 万的斐波那契数的 R while 循环 [已关闭]

问：

就像标题所说的那样，我必须编写一小段代码，使用 while 循环将小于 100 万的斐波那契数保存在向量中。我编写的代码运行了很长时间，以至于我总是不得不停止计算过程。我已经有不同的代码可以解决这个问题，但我仍然不确定为什么这种特定方法不起作用？

我试过的：

fib <- c(0,1) #define starting numbers of fibonacci vector
n<-3 #starting index of calculated fibonacci numbers
while (max(fib)<10^6) { #highest fibonacci should be smaller than 1 million
  fib[n]<-fib[n-2]+fib[n-1] #definition of fibonacci sequence`
  n+1 
}

我所期望的：所有斐波那契数都小于 100 万的向量 实际发生了什么：运行时间非常长，所以没有真正的结果