# NOT RUN {
## See example in pag 147 in reference [Lazowska84] for more details.
classes <- 4
vLambda <- c(1, 1/2)
vNumber <- c(1, 1)
vThink <- c(0, 0)
nodes <- 2
vType <- c("Q", "Q")
vVisit <- matrix(data=1, nrow=4, ncol=2)
vService <- matrix(data=c(1/4, 1/2, 1/2, 1, 1/6, 1, 1, 4/3), nrow=4, ncol=2)
i_mcmn1 <- NewInput.MCMN(classes, vLambda, vNumber, vThink, nodes, vType, vVisit, vService)
# Build the model
o_mcmn1 <- QueueingModel(i_mcmn1)
Wck(o_mcmn1)
# }
Run the code above in your browser using DataLab