使用R：如何重复一个函数我做了数千次，每次重复都要记下它的结束数字

以下是我到目前为止编写的代码：

z = vector()
for(i in 1:20){
  Alkie = function(T=20, lambda=2.5, k=2, mu=3) {
    t = 0
    N = 0
    i = 1
    A.t = rexp(1, lambda)
    D.t = Inf
    while(t[i] < T) {
      t[i+1] = min(A.t, D.t)
      N[i+1] = N[i] + ifelse(A.t < D.t, 1, -1)
      if(A.t < D.t) {
        A.t = A.t + rexp(1,lambda)
        if(N[i+1] == 1) D.t = t[i+1] + rgamma(1, k, mu)
        if(N[i+1] == 6) D.t = t[i+1] + rgamma(1, 0, mu)
      }
      else
        D.t = ifelse(N[i+1] == 0, Inf, t[i+1] + rgamma(1, k, mu))
      i = i + 1
    }
    cbind(t=t, N=N)
  }

x = Alkie(T=20, lambda=2.5, k=2, mu=3)
n = nrow(x)
plot(c(x[1,1], rep(x[-1,1], each=2), x[n,1]), rep(x[,2], each=2), type="l", 
xlab="t(mins)", ylab="N(t)", col="blue")

z=vector（）
（我在1:20）{
Alkie=函数（T=20，lambda=2.5，k=2，mu=3）{
t=0
N=0
i=1
A.t=rexp（1，λ）
D.t=Inf
while（t[i]

---

如何存储计数？

脚本中缺少一个“}”。为什么不将计数写入共享内存中的文件中？简短的回答是使用计数