average_queue {queuecomputer} | R Documentation |
Compute time average queue length
average_queue(times, queuelength)
times |
numeric vector of times |
queuelength |
numeric vector of queue lengths |
n <- 1e3
arrivals <- cumsum(rexp(n))
service <- rexp(n)
departures <- queue(arrivals, service, 1)
queuedata <- queue_lengths(arrivals, service, departures)
average_queue(queuedata$times, queuedata$queuelength)