R 如何从指数分布创建多列数据表

我需要创建一个包含客户到达时间、客户等待时间、服务时间和客户离开时间的多列表。服务时间是出纳帮助客户所需的时间。到达时间和服务时间由使用rexp命令的函数提供

该表需要如下所示：

我的代码如下所示：

singleTime = function(Rate)
{
  data = rexp(1,Rate)
  return(data)
}

waitTimes = function(m,arrivalRate,serviceRate)
{
  arrivalTimes = c(1:m)
  waitTimes = c(1:m)
  serviceTimes = c(1:m)
  leaveTimes = c(1:m)
  previousLeaveTime = 0
  for(i in (1:m))
  {
    arrivalTimes[i] = singleTime(arrivalRate)
    if(i == 0)
    {
      waitTimes[i] = 0
    }
    else if((previousLeaveTime - arrivalTimes[i])<= 0)
    {
      waitTimes[i] = 0
    }
    else
    {
      waitTimes[i] = leaveTimes[i-1] - arrivalTimes[i]
    }
    serviceTimes[i] = singleTime(serviceRate)
    leaveTimes[i] = waitTimes[i] + serviceTimes[i] + arrivalTimes[i]
    previousLeaveTime = leaveTimes[i]
    i = i + 1
  }
  waitTimesTable = table(arrivalTimes,waitTimes,serviceTimes,leaveTimes)
  View(waitTimesTable)
}

singleTime=函数（速率）
{
数据=rexp（1，速率）
返回（数据）
}
waitTimes=函数（m、到达率、服务率）
{
到达时间=c（1:m）
等待时间=c（1:m）
服务时间=c（1:m）
离场次数=c（1:m）
上一次离开时间=0
适用于（1:m）中的（i）
{
到达时间[i]=单一时间（到达率）
如果（i==0）
{
等待时间[i]=0
}
否则如果（（previousLeaveTime-arrivalTimes[i]）您是否可以将
视图（waitTimesTable）
替换为
返回（data.frame（arrivalTimes，waitTimes，serviceTimes，leaveTimes）
？我不确定您是否关心该表的外观