DATA 604 Discussion 4

# M/M/1  exponentially distributed arrival and service times.
#Right from the docs, this returns "the mean number of customers in the M/M/c model"


library(queueing)

## create input parameters

i_mmc = NewInput.MMC(lambda=(1), mu=(1/.9), c=1, n=0, method=0)

## Build the model

o_mmc <- QueueingModel(i_mmc)

l = L(o_mmc)

y= 1
m= 1/.9
w = l/y
p = y/m
lq = l-(y/m)
wq = lq/y
data.frame('lambda' = y, 'mu' = m, 'p' = p, 'Wq' = wq, 'W' = w, 'Lq' = lq, 'L' = l)