Contexto
Una empresa tiene un call center con varios operadores que atienden
llamadas de clientes. La gerencia quiere analizar si el número de
operadores es suficiente para evitar largos tiempos de espera o si deben
contratar más personal.
Datos del Problema
- Tasa de llegada (lambda): 29 llamadas por hora.
- Tasa de servicio (Miu): Cada operador atiende en promedio 6 llamadas
por hora.
- Número de servidores (s): 5 operadores disponibles.
- Capacidad máxima del sistema: Ilimitada (todos los clientes pueden
esperar en la fila).
- Política de servicio: FIFO (primero en llegar, primero en ser
atendido).
Herramientas usadas en el
análisis
Llamar librerías
#install.packages("queueing")
library(queueing)
Calculo de la dinámica de
atención a cliente
#Definir los parámetros del modelo M/M/s
lambda <- 29
mu <- 6
s <- 5 #Número de servidores
# Definir el modelo M/M/s
modelo_mms <- NewInput.MMC(lambda = lambda, mu = mu, c = s)
# Resolver el modelo
resultado <- QueueingModel(modelo_mms)
# Mostrar los resultados principales
cat("Factor de utilización (rho):", resultado$RO, "\n")
## Factor de utilización (rho): 0.9666667
cat("Número promedio de clientes en la fila (Lq):", round(resultado$Lq,1), "\n")
## Número promedio de clientes en la fila (Lq): 26.6
cat("Número promedio de clientes en el sistema (L):", round(resultado$L,1), "\n")
## Número promedio de clientes en el sistema (L): 31.4
cat("Tiempo promedio en la fila (Wq):", round(resultado$Wq,1), "horass\n")
## Tiempo promedio en la fila (Wq): 0.9 horass
cat("Tiempo promedio en el sistema (W):", round(resultado$W,1), "horas\n")
## Tiempo promedio en el sistema (W): 1.1 horas
Preguntas del negocio
1.- ¿El sistema se encuentra muy ocupado? Sí, el
factor de utilización indica un 96% del total de tiempo en que los
servidores están activos lo que no deja casi nada de tiempo
perdido.
2.- ¿Los clientes esperan demasiado en fila? 0.9
minutos o 54 segundos me parece muy poco tiempo de espera considerando
que los servidores están operados por humanos.
3.- ¿Cuál es el tiempo promedio de espera? 54
segundos
4.- ¿Qué puede concluir de este sistema? Es un
sistema muy demandado, considero que tiene muy pocos servidores para la
cantidad de llamadas que recibe. 1 o 2 servidores más podría aligerar la
carga masiva de trabajo y atender de mejor y más eficiente manera a los
clientes que requieren el servicio.
LS0tDQp0aXRsZTogIlRlb3JpYV9GaWxhc19DYWxsQ2VudGVyX0E3NDkiDQphdXRob3I6ICJTYW1hbnRoYSAtIEEwMTQyMjc0OSINCmRhdGU6ICIyMDI1LTA4LTI0Ig0Kb3V0cHV0Og0KICBodG1sX2RvY3VtZW50Og0KICAgICB0b2M6IFRSVUUNCiAgICAgdG9jX2Zsb2F0OiBUUlVFDQogICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCiAgICAgdGhlbWU6IHlldGkNCi0tLQ0KPGNlbnRlcj4NCiFbXShodHRwczovL21lZGlhMi5naXBoeS5jb20vbWVkaWEvdjEuWTJsa1BUWmpNRGxpT1RVeWRXRnpkWGR2TUcxM2VHOW1abXh3ZWpCdk4zWmxNbm8wZG5Kbk9Ha3ljV0k1WjNwMU0zUm5jU1psY0QxMk1WOW5hV1p6WDNObFlYSmphQ1pqZEQxbi9CRFM0QWJPeWhua2RsaUp5YmkvZ2lwaHkuZ2lmKQ0KPC9jZW50ZXI+DQoNCg0KIyA8Yj4gPHNwYW4gc3R5bGUgPSAiY29sb3I6ICNDRDEwNzY7ICI+IENvbnRleHRvIDwvc3Bhbj4gPC9iPg0KDQpVbmEgZW1wcmVzYSB0aWVuZSB1biBjYWxsIGNlbnRlciBjb24gdmFyaW9zIG9wZXJhZG9yZXMgcXVlIGF0aWVuZGVuIGxsYW1hZGFzIGRlIGNsaWVudGVzLiBMYSBnZXJlbmNpYSBxdWllcmUgYW5hbGl6YXIgc2kgZWwgbsO6bWVybyBkZSBvcGVyYWRvcmVzIGVzIHN1ZmljaWVudGUgcGFyYSBldml0YXIgbGFyZ29zIHRpZW1wb3MgZGUgZXNwZXJhIG8gc2kgZGViZW4gY29udHJhdGFyIG3DoXMgcGVyc29uYWwuDQoNCg0KIyA8Yj4gPHNwYW4gc3R5bGUgPSAiY29sb3I6ICNDRDEwNzY7ICI+IERhdG9zIGRlbCBQcm9ibGVtYSA8L3NwYW4+IDwvYj4NCg0KDQoqIFRhc2EgZGUgbGxlZ2FkYSAobGFtYmRhKTogMjkgbGxhbWFkYXMgcG9yIGhvcmEuDQoqIFRhc2EgZGUgc2VydmljaW8gKE1pdSk6IENhZGEgb3BlcmFkb3IgYXRpZW5kZSBlbiBwcm9tZWRpbyA2IGxsYW1hZGFzIHBvciBob3JhLg0KKiBOw7ptZXJvIGRlIHNlcnZpZG9yZXMgKHMpOiA1IG9wZXJhZG9yZXMgZGlzcG9uaWJsZXMuDQoqIENhcGFjaWRhZCBtw6F4aW1hIGRlbCBzaXN0ZW1hOiBJbGltaXRhZGEgKHRvZG9zIGxvcyBjbGllbnRlcyBwdWVkZW4gZXNwZXJhciBlbiBsYSBmaWxhKS4NCiogUG9sw610aWNhIGRlIHNlcnZpY2lvOiBGSUZPIChwcmltZXJvIGVuIGxsZWdhciwgcHJpbWVybyBlbiBzZXIgYXRlbmRpZG8pLg0KDQojIDxiPiA8c3BhbiBzdHlsZSA9ICJjb2xvcjogI0NEMTA3NjsgIj4gSGVycmFtaWVudGFzIHVzYWRhcyBlbiBlbCBhbsOhbGlzaXMgIDwvc3Bhbj4gPC9iPg0KDQojIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjogI0NEMTA3NjsgIj4gTGxhbWFyIGxpYnJlcsOtYXMgIDwvc3Bhbj4gDQpgYGB7cn0NCiNpbnN0YWxsLnBhY2thZ2VzKCJxdWV1ZWluZyIpDQpsaWJyYXJ5KHF1ZXVlaW5nKQ0KYGBgDQoNCiMgPGI+IDxzcGFuIHN0eWxlID0gImNvbG9yOiAjQ0QxMDc2OyAiPiBDYWxjdWxvIGRlIGxhIGRpbsOhbWljYSBkZSBhdGVuY2nDs24gYSBjbGllbnRlIDwvc3Bhbj4gPC9iPg0KDQpgYGB7cn0NCiNEZWZpbmlyIGxvcyBwYXLDoW1ldHJvcyBkZWwgbW9kZWxvIE0vTS9zDQpsYW1iZGEgPC0gMjkgIA0KbXUgPC0gNiAgICAgIA0KcyA8LSA1ICAgICAgICNOw7ptZXJvIGRlIHNlcnZpZG9yZXMNCg0KIyBEZWZpbmlyIGVsIG1vZGVsbyBNL00vcw0KbW9kZWxvX21tcyA8LSBOZXdJbnB1dC5NTUMobGFtYmRhID0gbGFtYmRhLCBtdSA9IG11LCBjID0gcykNCg0KIyBSZXNvbHZlciBlbCBtb2RlbG8NCnJlc3VsdGFkbyA8LSBRdWV1ZWluZ01vZGVsKG1vZGVsb19tbXMpDQoNCiMgTW9zdHJhciBsb3MgcmVzdWx0YWRvcyBwcmluY2lwYWxlcw0KY2F0KCJGYWN0b3IgZGUgdXRpbGl6YWNpw7NuIChyaG8pOiIsIHJlc3VsdGFkbyRSTywgIlxuIikNCmNhdCgiTsO6bWVybyBwcm9tZWRpbyBkZSBjbGllbnRlcyBlbiBsYSBmaWxhIChMcSk6Iiwgcm91bmQocmVzdWx0YWRvJExxLDEpLCAiXG4iKQ0KY2F0KCJOw7ptZXJvIHByb21lZGlvIGRlIGNsaWVudGVzIGVuIGVsIHNpc3RlbWEgKEwpOiIsIHJvdW5kKHJlc3VsdGFkbyRMLDEpLCAiXG4iKQ0KY2F0KCJUaWVtcG8gcHJvbWVkaW8gZW4gbGEgZmlsYSAoV3EpOiIsIHJvdW5kKHJlc3VsdGFkbyRXcSwxKSwgImhvcmFzc1xuIikNCmNhdCgiVGllbXBvIHByb21lZGlvIGVuIGVsIHNpc3RlbWEgKFcpOiIsIHJvdW5kKHJlc3VsdGFkbyRXLDEpLCAiaG9yYXNcbiIpDQpgYGANCg0KIyA8Yj4gPHNwYW4gc3R5bGUgPSAiY29sb3I6ICNDRDEwNzY7ICI+IFByZWd1bnRhcyBkZWwgbmVnb2NpbyA8L3NwYW4+IDwvYj4NCg0KKiAxLi0gKirCv0VsIHNpc3RlbWEgc2UgZW5jdWVudHJhIG11eSBvY3VwYWRvPyoqDQpTw60sIGVsIGZhY3RvciBkZSB1dGlsaXphY2nDs24gaW5kaWNhIHVuIDk2JSBkZWwgdG90YWwgZGUgdGllbXBvIGVuIHF1ZSBsb3Mgc2Vydmlkb3JlcyBlc3TDoW4gYWN0aXZvcyBsbyBxdWUgbm8gZGVqYSBjYXNpIG5hZGEgZGUgdGllbXBvIHBlcmRpZG8uDQoNCiogMi4tICoqwr9Mb3MgY2xpZW50ZXMgZXNwZXJhbiBkZW1hc2lhZG8gZW4gZmlsYT8qKg0KMC45IG1pbnV0b3MgbyA1NCBzZWd1bmRvcyBtZSBwYXJlY2UgbXV5IHBvY28gdGllbXBvIGRlIGVzcGVyYSBjb25zaWRlcmFuZG8gcXVlIGxvcyBzZXJ2aWRvcmVzIGVzdMOhbiBvcGVyYWRvcyBwb3IgaHVtYW5vcy4NCg0KKiAzLi0gKirCv0N1w6FsIGVzIGVsIHRpZW1wbyBwcm9tZWRpbyBkZSBlc3BlcmE/KioNCjU0IHNlZ3VuZG9zDQoNCiogNC4tICoqwr9RdcOpIHB1ZWRlIGNvbmNsdWlyIGRlIGVzdGUgc2lzdGVtYT8qKg0KRXMgdW4gc2lzdGVtYSBtdXkgZGVtYW5kYWRvLCBjb25zaWRlcm8gcXVlIHRpZW5lIG11eSBwb2NvcyBzZXJ2aWRvcmVzIHBhcmEgbGEgY2FudGlkYWQgZGUgbGxhbWFkYXMgcXVlIHJlY2liZS4gMSBvIDIgc2Vydmlkb3JlcyBtw6FzIHBvZHLDrWEgYWxpZ2VyYXIgbGEgY2FyZ2EgbWFzaXZhIGRlIHRyYWJham8geSBhdGVuZGVyIGRlIG1lam9yIHkgbcOhcyBlZmljaWVudGUgbWFuZXJhIGEgbG9zIGNsaWVudGVzIHF1ZSByZXF1aWVyZW4gZWwgc2VydmljaW8uDQoNCg0KDQo=