顧客の到着時間、顧客の待ち時間、サービス時間、および顧客の退出時間の複数列テーブルを作成する必要があります。サービス時間は、レジ係が顧客を助けるのにかかる時間です。到着時刻とサービス時刻は、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)
}