# NOT RUN {
## See example 10.9 in reference [Sixto2004] for more details.
## create input parameters
i_mmc <- NewInput.MMC(lambda=5, mu=10, c=2, n=0, method=0)
## Build the model
o_mmc <- QueueingModel(i_mmc)
## Returns the Wqq
Wqq(o_mmc)
# }
Run the code above in your browser using DataLab