R:rgeom（n，p）当n和p不固定时

情境：假设一个包里有一个蓝色的球和一个红色的球。在每个回合中，随机选择一个球，然后与另一个相同颜色的（新）球一起返回（因此，在n个回合后，袋子中始终有n+2个球）

在第n个转弯处第一次划红灯的概率为

我想用rgeom（n，p）代码编写一个循环，模拟直到第一个红色球从袋子中抽出为止的圈数。但由于n是未知的，p每转一圈都会改变，我不知道如何修改它。我尝试了以下代码，但无法打印任何内容：

k=0
success = 0
while(success <= 1){
   k = k + 1
   if (rgeom(n, 1/(n+1) == 1) 
      success = success + 1
}
k

k=0
成功=0
而（成功如果我运行时做了一些小改动，我得到了一些k值：

set.seed(123)
k=0
success = 0
while(success < 1){ # rather than <=1, which includes 0
k = k + 1
if (rgeom(n, 1/(n+1)) == 1) # missed closing parenthesis 
success = success + 1
}
k

set.seed（123）
k=0
成功=0
而（成功<1）{#而不是