# NOT RUN {
## create input parameters
i_mm1 <- NewInput.MM1(lambda=1/4, mu=1/3, n=0)
## Build the model
o_mm1 <- QueueingModel(i_mm1)
## Returns the variance of the time spend in the system
VT(o_mm1)
# }
Run the code above in your browser using DataLab