尝试找出R中的赌场循环

# 设置模拟次数
num_simulations <- 10000

# 初始化计数器
num_success <- 0

# 进行赌场循环
for (i in 1:num_simulations) {
  # 模拟赌博事件，这里以掷硬币为例
  result <- sample(c("正面", "反面"), 1)
  
  # 判断是否为成功事件
  if (result == "正面") {
    num_success <- num_success + 1
  }
}

# 计算概率
probability <- num_success / num_simulations

# 输出结果
cat("赌场循环模拟结果：\n")
cat("模拟次数：", num_simulations, "\n")
cat("成功次数：", num_success, "\n")
cat("概率估计：", probability, "\n")