Ejercicios:

#1.- El tiempo de atención media en pacientes en el consultorio de las farmacias similares es de 10 minutos, calcule la probabilidad de que atiendan a un paciente en 5 minutos.

En el siguiente caso se presenta una forma de resolverlo a partir de la distribucion exponencial.

pexp(5, rate = 10)

## [1] 1

A partir de nuestro resultado, podemos obtener que hay un 100% de probabilidad de que se logre atender un paciente en 5 minutos

#2.- Normalmente un trabajador logra hacer 10 pasteles en un día, calcule la probabilidad de que haga 15 o más.

Aqui vamos a calcular la cola derecha a partir de la distribucion poisson.

ppois(14, lambda = 10, lower.tail = FALSE)

## [1] 0.08345847

Nos dice que tenemos una probabilidad del 8% de que haga 15 pasteles o más.

Y ahora lo comprobaremos calculando la cola izquierda

ppois(14, lambda = 10, lower.tail = TRUE)

## [1] 0.9165415

Y como podemos observar, el 91% coincide, es mucho mas probable que haga menos de 15 pasteles.

Veamos esta misma relación de manera gráfica

barplot(dpois(x=0:22, 10), names.arg = 0:22)