# NOT RUN {
## create input parameters
i_MMInfKK <- NewInput.MMInfKK(lambda=0.25, mu=4, k=4)
## Build the model
o_MMInfKK <- QueueingModel(i_MMInfKK)
## Returns the probabilities
Pn(o_MMInfKK)
Qn(o_MMInfKK)
# }
Run the code above in your browser using DataLab