r - R使用while循环查找时间步数

Question

我需要找出我的方程将运行多少个时间步，直到种群灭绝（N = 0）。我很确定这不会发生，因为我使用的是几何增长方程。

lambda=0.8
TimeSteps=10

# From previous example 
t=-c(1:TimeSteps)
N=-numeric()
N0=10
N[1]=N0
for(t in 1:TimeSteps) {
   N[t+1]=(N[t]*lambda)
}

我试图说明时间步长将等于 N 小于或等于零的 x 值。