Actividad 3. Teoria de Filas

1. Contexto del problema
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 (ᵰ): 29 llamadas por hora.
• Tasa de servicio (ᵰ): Cada operador atiende en promedio 6 llamadas
por hora.
• Número de servidores (ᵆ): 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).
Responda las siguientes preguntas:
1.- ¿El sistema se encuentra muy ocupado?
2.- ¿Los clientes esperan demasiado en fila?
3.- ¿Cuál es el tiempo promedio de espera?
4.- ¿Qué puede concluir de este sistema?
library(queueing)
# Parámetros del problema
lambda <- 29 # tasa de llegada
mu <- 6 # tasa de servicio por operador
c <- 5 # número de servidores
# Definir el modelo
modelo1 <- NewInput.MMC(lambda = lambda, mu = mu, c = c, n = 0, method = 0)
# Resolver el modelo
resultado <- QueueingModel(modelo1)
# Mostrar resultados
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):", resultado$Lq, "\n")
## Número promedio de clientes en la fila (Lq): 26.61578
cat("Número promedio de clientes en el sistema (L):", resultado$L, "\n")
## Número promedio de clientes en el sistema (L): 31.44912
cat("Tiempo promedio en la fila (Wq):", resultado$Wq * 60, "minutos\n")
## Tiempo promedio en la fila (Wq): 55.06714 minutos
cat("Tiempo promedio en el sistema (W):", resultado$W * 60, "minutos\n")
## Tiempo promedio en el sistema (W): 65.06714 minutos
Interpretacion del Analisis:
El análisis muestra que el call center está casi al lÃmite de su
capacidad, con un factor de utilización de 0.97, lo que indica que los
operadores están ocupados casi todo el tiempo.
Esto genera largas filas de espera, con un promedio de más de
26 clientes, y un tiempo promedio en la fila de
aproximadamente 55 minutos, mientras que el tiempo total en el
sistema es de alrededor de 65 minutos.
Los resultados sugieren que se necesitarÃan más operadores para
reducir los tiempos de espera con la finalidad de mejorar la atención al
cliente y obtener una mejora reputacion para asi ser mas atraccivo hacia
empresas o instituciones que necesitan de este servicio.
Otro elemento que no se contempla pero puede estar relacionado con el
tiempo, el Idioma. Estaria intersante saber si exite una relacion con el
promedio de tiempo en la fila con el idioma que habla la persona puede
que tenga un efecto en el incremento en el tiempo debido a la traducion
y entendimiento del idioma.

LS0tCnRpdGxlOiAiQWN0aXZpZGFkIDMgTW9kdWxvIDIiCmF1dGhvcjogIlNlYmFzdGlhbiBFc3Bpbm96YSBBMDA4MzM3MDQiCmRhdGU6ICIyMDI1LTA4LTIwIgpvdXRwdXQ6IAogaHRtbF9kb2N1bWVudDogCiAgdG9jOiBUUlVFCiAgdG9jX2Zsb2F0OiBUUlVFCiAgY29kZV9kb3dubG9hZDogVFJVRQogIHRoZW1lOiB5ZXRpCi0tLQoKIyA8c3BhbiBzdHlsZT0nY29sb3I6Ymx1ZTsnPiAgQWN0aXZpZGFkIDMuIFRlb3JpYSBkZSBGaWxhcyAgPC9zcGFuPgoKIVtdKGh0dHBzOi8vaS5waW5pbWcuY29tL29yaWdpbmFscy9mOC80My81Yi9mODQzNWI5NTNiN2M0NGIzZmE3ZTdhYjEzMmUxM2U2ZC5naWYpCgoqKjEuIENvbnRleHRvIGRlbCBwcm9ibGVtYSoqCgpVbmEgZW1wcmVzYSB0aWVuZSB1biBjYWxsIGNlbnRlciBjb24gdmFyaW9zIG9wZXJhZG9yZXMgcXVlIGF0aWVuZGVuCmxsYW1hZGFzIGRlIGNsaWVudGVzLiBMYSBnZXJlbmNpYSBxdWllcmUgYW5hbGl6YXIgc2kgZWwgbsO6bWVybyBkZQpvcGVyYWRvcmVzIGVzIHN1ZmljaWVudGUgcGFyYSBldml0YXIgbGFyZ29zIHRpZW1wb3MgZGUgZXNwZXJhIG8gc2kKZGViZW4gY29udHJhdGFyIG3DoXMgcGVyc29uYWwuCgoqKkRhdG9zIGRlbCBQcm9ibGVtYToqKgoK4oCiIFRhc2EgZGUgbGxlZ2FkYSAo4bWwKTogMjkgbGxhbWFkYXMgcG9yIGhvcmEuCgrigKIgVGFzYSBkZSBzZXJ2aWNpbyAo4bWwKTogQ2FkYSBvcGVyYWRvciBhdGllbmRlIGVuIHByb21lZGlvIDYgbGxhbWFkYXMgcG9yIGhvcmEuCgrigKIgTsO6bWVybyBkZSBzZXJ2aWRvcmVzICjhtYYpOiA1IG9wZXJhZG9yZXMgZGlzcG9uaWJsZXMuCgrigKIgQ2FwYWNpZGFkIG3DoXhpbWEgZGVsIHNpc3RlbWE6IElsaW1pdGFkYSAodG9kb3MgbG9zIGNsaWVudGVzIHB1ZWRlbiBlc3BlcmFyIGVuIGxhCmZpbGEpLgoK4oCiIFBvbMOtdGljYSBkZSBzZXJ2aWNpbzogRklGTyAocHJpbWVybyBlbiBsbGVnYXIsIHByaW1lcm8gZW4gc2VyIGF0ZW5kaWRvKS4KCgoqKlJlc3BvbmRhIGxhcyBzaWd1aWVudGVzIHByZWd1bnRhczoqKgoKMS4tIMK/RWwgc2lzdGVtYSBzZSBlbmN1ZW50cmEgbXV5IG9jdXBhZG8/CgoyLi0gwr9Mb3MgY2xpZW50ZXMgZXNwZXJhbiBkZW1hc2lhZG8gZW4gZmlsYT8KCjMuLSDCv0N1w6FsIGVzIGVsIHRpZW1wbyBwcm9tZWRpbyBkZSBlc3BlcmE/Cgo0Li0gwr9RdcOpIHB1ZWRlIGNvbmNsdWlyIGRlIGVzdGUgc2lzdGVtYT8KCmBgYHtyfQpsaWJyYXJ5KHF1ZXVlaW5nKQojIFBhcsOhbWV0cm9zIGRlbCBwcm9ibGVtYQpsYW1iZGEgPC0gMjkgICAjIHRhc2EgZGUgbGxlZ2FkYSAKbXUgPC0gNiAgICAgICAgIyB0YXNhIGRlIHNlcnZpY2lvIHBvciBvcGVyYWRvcgpjIDwtIDUgICAgICAgICAjIG7Dum1lcm8gZGUgc2Vydmlkb3JlcwpgYGAKCmBgYHtyfQojIERlZmluaXIgZWwgbW9kZWxvCm1vZGVsbzEgPC0gTmV3SW5wdXQuTU1DKGxhbWJkYSA9IGxhbWJkYSwgbXUgPSBtdSwgYyA9IGMsIG4gPSAwLCBtZXRob2QgPSAwKQoKIyBSZXNvbHZlciBlbCBtb2RlbG8KcmVzdWx0YWRvIDwtIFF1ZXVlaW5nTW9kZWwobW9kZWxvMSkKYGBgCmBgYHtyfQojIE1vc3RyYXIgcmVzdWx0YWRvcwpjYXQoIkZhY3RvciBkZSB1dGlsaXphY2nDs24gKHJobyk6IiwgcmVzdWx0YWRvJFJPLCAiXG4iKQpjYXQoIk7Dum1lcm8gcHJvbWVkaW8gZGUgY2xpZW50ZXMgZW4gbGEgZmlsYSAoTHEpOiIsIHJlc3VsdGFkbyRMcSwgIlxuIikKY2F0KCJOw7ptZXJvIHByb21lZGlvIGRlIGNsaWVudGVzIGVuIGVsIHNpc3RlbWEgKEwpOiIsIHJlc3VsdGFkbyRMLCAiXG4iKQpjYXQoIlRpZW1wbyBwcm9tZWRpbyBlbiBsYSBmaWxhIChXcSk6IiwgcmVzdWx0YWRvJFdxICogNjAsICJtaW51dG9zXG4iKQpjYXQoIlRpZW1wbyBwcm9tZWRpbyBlbiBlbCBzaXN0ZW1hIChXKToiLCByZXN1bHRhZG8kVyAqIDYwLCAibWludXRvc1xuIikKYGBgCioqSW50ZXJwcmV0YWNpb24gZGVsIEFuYWxpc2lzOiAqKgoKRWwgYW7DoWxpc2lzIG11ZXN0cmEgcXVlIGVsIGNhbGwgY2VudGVyIGVzdMOhIGNhc2kgYWwgbMOtbWl0ZSBkZSBzdSBjYXBhY2lkYWQsIGNvbiB1biBmYWN0b3IgZGUgdXRpbGl6YWNpw7NuIGRlIDAuOTcsIGxvIHF1ZSBpbmRpY2EgcXVlIGxvcyBvcGVyYWRvcmVzIGVzdMOhbiBvY3VwYWRvcyBjYXNpIHRvZG8gZWwgdGllbXBvLiAKCkVzdG8gZ2VuZXJhIGxhcmdhcyBmaWxhcyBkZSBlc3BlcmEsIGNvbiB1biBwcm9tZWRpbyBkZSAqKm3DoXMgZGUgMjYgY2xpZW50ZXMqKiwgeSB1biB0aWVtcG8gcHJvbWVkaW8gZW4gbGEgKipmaWxhIGRlIGFwcm94aW1hZGFtZW50ZSA1NSBtaW51dG9zKiosIG1pZW50cmFzIHF1ZSBlbCB0aWVtcG8gdG90YWwgZW4gZWwgc2lzdGVtYSBlcyBkZSAqKmFscmVkZWRvciBkZSA2NSBtaW51dG9zKiouIAoKTG9zIHJlc3VsdGFkb3Mgc3VnaWVyZW4gcXVlIHNlIG5lY2VzaXRhcsOtYW4gbcOhcyBvcGVyYWRvcmVzIHBhcmEgcmVkdWNpciBsb3MgdGllbXBvcyBkZSBlc3BlcmEgY29uIGxhIGZpbmFsaWRhZCBkZSBtZWpvcmFyIGxhIGF0ZW5jacOzbiBhbCBjbGllbnRlIHkgb2J0ZW5lciB1bmEgbWVqb3JhIHJlcHV0YWNpb24gcGFyYSBhc2kgc2VyIG1hcyBhdHJhY2Npdm8gaGFjaWEgZW1wcmVzYXMgbyBpbnN0aXR1Y2lvbmVzIHF1ZSBuZWNlc2l0YW4gZGUgZXN0ZSBzZXJ2aWNpby4gCgpPdHJvIGVsZW1lbnRvIHF1ZSBubyBzZSBjb250ZW1wbGEgcGVybyBwdWVkZSBlc3RhciByZWxhY2lvbmFkbyBjb24gZWwgdGllbXBvLCBlbCBJZGlvbWEuIEVzdGFyaWEgaW50ZXJzYW50ZSBzYWJlciBzaSBleGl0ZSB1bmEgcmVsYWNpb24gY29uIGVsIHByb21lZGlvIGRlIHRpZW1wbyBlbiBsYSBmaWxhIGNvbiBlbCBpZGlvbWEgcXVlIGhhYmxhIGxhIHBlcnNvbmEgcHVlZGUgcXVlIHRlbmdhIHVuIGVmZWN0byBlbiBlbCBpbmNyZW1lbnRvIGVuIGVsIHRpZW1wbyBkZWJpZG8gYSBsYSB0cmFkdWNpb24geSBlbnRlbmRpbWllbnRvIGRlbCBpZGlvbWEuIAoKIVtdKGh0dHBzOi8vaS5yZWRkLml0L3F2ZGN5djl1Y3NoeC5naWYpCgoK