# NOT RUN {
## See example in pag 138 in reference [Lazowska84] for more details.
classes <- 2
vLambda <- c(3/19, 2/19)
nodes <- 2
vType <- c("Q", "Q")
vVisit <- matrix(data=c(10, 9, 5, 4), nrow=2, ncol=2, byrow=TRUE)
vService <- matrix(data=c(1/10, 1/3, 2/5, 1), nrow=2, ncol=2, byrow=TRUE)
i_mcon1 <- NewInput.MCON(classes, vLambda, nodes, vType, vVisit, vService)
# Build the model
o_mcon1 <- QueueingModel(i_mcon1)
print(summary(o_mcon1))
# }
Run the code above in your browser using DataLab