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=