使用R编程模拟多个服务器（MMC）队列

Question

我正在尝试使用R编程来模拟多服务器单队列模型（MMC）。我写过一个以前模拟单服务器单队列模型（MM1），但我不知道如何将其更改为MMC模型。以下是MM1模拟的代码：

lambda=2        #Arrival rate
mu=3            #Service rate
time = 0
simtime = 1000  #Simulation time
arrive = 0
service = 0 
s.start = 0     #Service start time
t.service = 0       #Total service time
s.end=0     #Service end time
complete=0

while(time<simtime){

service<-rexp(1,mu)

if(length(customer)==0){

  arrive<-rexp(1,lambda)
  s.start<-arrive
  customer<-customer+1

} else {

  arrive<-arrive+rexp(1,lambda)
  s.start<-max(arrive,s.end)
  customer<-customer+1

}

t.service<-t.service+service
s.end<-s.start+service    
time<-arrive

}

有人可以提供一些建议来更改代码以考虑多个服务器吗？提前谢谢。