# NOT RUN {
## See example 10.12 in reference [Sixto2004] for more details.
## create input parameters
i_mmcc <- NewInput.MMCC(lambda=3, mu=0.25, c=15)
## Build the model
o_mmcc <- QueueingModel(i_mmcc)
## Returns the Wqq
Wqq(o_mmcc)
# }
Run the code above in your browser using DataLab