内置外部函数的R/写入循环函数

我想用queuecomputer生成100个排队模型（因为到达时间和服务时间是随机的，所以我总是会得到不同的结果），并将每个列表的特定值存储在单独的向量中。（queuecomputer始终返回列表） 比如让

 n_customers <- 50
 arrival_rate <- 1.8
 service_rate <- 1
 arrivals <- cumsum(rexp(n_customers, arrival_rate))
 service <- rexp(n_customers, service_rate)
 queue_obj <- queue_step(arrivals, service, servers = 2)

---

n_客户我认为您需要将索引
I
移到内部，并首先将
队列
和
mwt
定义为空列表，即：

library(queuecomputer)
n_customers <- 50
arrival_rate <- 1.8
service_rate <- 1
arrivals <- cumsum(rexp(n_customers, arrival_rate))
service <- rexp(n_customers, service_rate)
queue_obj <- queue_step(arrivals, service, servers = 2)
queue <- list()
mwt <- list()

queuetmp <- function(n) {
  for (i in 1:n) {
    queue[[i]] <- queue_step(cumsum(rexp(50, 1/10)), rexp(50, 1/8), servers = 2)
    mwt[i] <- (summary(queue[[i]]))$mwt
  }
  return (mwt)
}

queuetmp(10)

库（排队计算机）
n_客户
library(queuecomputer)
n_customers <- 50
arrival_rate <- 1.8
service_rate <- 1
arrivals <- cumsum(rexp(n_customers, arrival_rate))
service <- rexp(n_customers, service_rate)
queue_obj <- queue_step(arrivals, service, servers = 2)
queue <- list()
mwt <- list()

queuetmp <- function(n) {
  for (i in 1:n) {
    queue[[i]] <- queue_step(cumsum(rexp(50, 1/10)), rexp(50, 1/8), servers = 2)
    mwt[i] <- (summary(queue[[i]]))$mwt
  }
  return (mwt)
}

queuetmp(10)