请给出本金n时赌徒破产所需下注次数，模拟次数为Y。R语言代码

在R语言中，计算赌徒破产所需的下注次数通常涉及概率模拟，特别是对于“赌棍破产”这类经典的负二项分布（Geometric Distribution）问题。赌徒破产模型假设每次赌博的胜率为p，失败则输掉一定金额，直到赢得为止。我们可以通过循环和随机数生成函数`runif()`来模拟这个过程。

以下是一个简单的R代码示例，它将计算在本金n下，赌徒破产所需要的平均下注次数：

# 定义函数，接受本金、成功概率和模拟次数作为参数
get_bust_times <- function(principal, p, simulations) {
  total_simulations <- numeric(simulations)
  
  for (i in 1:simulations) {
    # 模拟下注次数，直到赢得一次
    bets <- 0
    while (TRUE) {
      if (runif(1) < p) { # 赢的概率小于等于0.5，这里简化为抛硬币
        break
      } else {
        bets <- bets + 1
        principal <- principal - 1 # 每次失败赌注减少本金
        if (principal <= 0) {
          total_simulations[i] <- bets # 破产时停止模拟，记录下注次数
          break
        }
      }
    }
  }
  
  # 计算平均破产下注次数
  mean(total_simulations)
}

# 示例使用
set.seed(123) # 设置随机种子保证结果可复现
n <- 1000   # 本金
p <- 0.5    # 胜率
Y <- 10000  # 模拟次数

bust_times <- get_bust_times(n, p, Y)
bust_times

在这个例子中，`get_bust_times`函数会返回在给定本金、获胜概率和模拟次数下的平均破产下注次数。注意实际赌博场景中胜率可能是不同的，需要替换`p`值。