# NOT RUN {
## 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 variance of the time spend in the system
VT(o_mmc)
# }
Run the code above in your browser using DataLab