r - r 中的循环仅给出最终值

Question

我正在尝试构建一个循环，该循环遍历我的 i 的所有值并将它们打印在矩阵中。相反，我只得到最终答案，请您告知我哪里出错了：

mat2 <- matrix(data = NA, nrow = 4, ncol = 10, byrow = TRUE)
for(i in 1:10){
  M <- 5000*i
  insurer[i] <- simdata[simdata<=M]
  reinsurer[i] <- simdata[simdata>M]
  mat2[1,] <- mean(insurer)
  mat2[2,] <- mean(reinsurer)
  mat2[3,] <- var(insurer)
  mat2[4,] <- var(reinsurer)
  mat2
}

输出如下：

mat2
             [,1]         [,2]         [,3]         [,4]         [,5]         [,6]
[1,]      9694.34      9694.34      9694.34      9694.34      9694.34      9694.34
[2,]     60776.64     60776.64     60776.64     60776.64     60776.64     60776.64
[3,]  82806727.19  82806727.19  82806727.19  82806727.19  82806727.19  82806727.19
[4,] 103927604.88 103927604.88 103927604.88 103927604.88 103927604.88 103927604.88
             [,7]         [,8]         [,9]        [,10]
[1,]      9694.34      9694.34      9694.34      9694.34
[2,]     60776.64     60776.64     60776.64     60776.64
[3,]  82806727.19  82806727.19  82806727.19  82806727.19
[4,] 103927604.88 103927604.88 103927604.88 103927604.88

标签： rloopsmatrix