R循环无报错停止执行原因及迭代结果存储方法咨询

• 未闭合的循环语法错误：你标记的for (t in 1:T) {没有对应的闭合大括号}，R要求代码块必须完整闭合，这种情况下R会判定代码未写完，直接停止解析后续逻辑。
• 变量未定义问题：函数内部的W没有定义，外部循环里的W <- K*N*T中N在全局环境未定义，且函数无法直接访问全局变量，执行时会触发变量找不到的问题，导致程序静默终止。
• 冗余的循环控制逻辑：函数已经用for (t in 1:T)控制迭代次数，后面手动修改t的inc函数、while (t <= T)循环完全多余，会干扰正常迭代流程，甚至导致提前终止或死循环。

1. 修复语法与逻辑错误 #

• 给for循环补上闭合的}，确保代码块完整；
• 在函数内部根据业务逻辑正确定义W（比如每月流入应为K*N，而非全局循环里的K*N*T）；
• 删除冗余的inc函数和while循环，for循环会自动处理t的迭代。

2. 存储每次迭代的St值 #

在函数内部初始化一个空列表，每次循环将计算得到的St（可附带迭代次数）添加进去，最后返回这个列表即可。

K <- 200 # 每月保费
F <- 40000 # 单次赔付金额
T <- 2 # 模拟月份数
probab <- 0.03 # 赔付概率

# 模拟函数
simulation <- function(N, K, F, T, probab) {
  # 初始化存储St的列表
  st_records <- list()
  
  for (t in 1:T) {
    # 当月资金流入（按每月实际流入逻辑定义）
    W <- K * N
    # 计算赔付储备金
    payout_reserve <- probab / 12 * T * N * F
    # 流入流出差值
    Result <- W - payout_reserve
    # 当月预计赔付数量
    a <- (N * probab) / 12 
    # 计算流动性指标St
    St <- payout_reserve - (a * F)
    
    # 将当前迭代的St存入列表
    st_records[[t]] <- list(月份 = t, St值 = St)
    
    # 流动性校验
    n <- sample(0:100, 1) # 新增客户数
    o <- sample(0:90, 1) # 退保客户数
    
    if (St >= 0) {
      print("流动性充足")
      N <- N + n - o - a
    } else {
      print("流动性不足")
      stop("模拟因流动性不足终止")
    }
  }
  
  # 返回所有St记录
  return(st_records)
}

# 调用模拟函数
final_result <- simulation(N=10000, K=200, F=30000, T=2, probab=0.03)

# 查看结果
print(final_result)

内容的提问来源于stack exchange，提问作者Mike_R