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