rm(list=ls())
dev.off()
cat("\014")

library(queueing)

# Ejemplo M/M/2/(4) (Población finita)

lambda<-1          # (clientes/hora)
mu<-2              # (clientes/hora)
k<-4               # capacidad del sistema (N')
c<-2               # número de canales de atención

# Resolución del modelo
Ejemplo <- NewInput.MMCKK(lambda, mu, c, k)
model <- QueueingModel(Ejemplo)
CheckInput.i_MMCKK(Ejemplo)
print(summary(model), digits=4)
Report(model)