Inicio de la tarea

Enunciado

El presente trabajo se enmarca en el desarrollo del teorema de Bayes enfocado en una presentación visual resultado de R Markdown.

Contexto del ejercicio:

[Aqui debo copiar el enunciado del ejercicio]

Desarrollo

¿Cual es la probabilidad de que la solicitud haya sido procesada en R1?

Primero calculo probabilidad total

P_total <- 0.5* 0.12 + 0.75 * 0.13 + 0.15 * 0.78
print(P_total)
## [1] 0.2745

La probabilidad total del ejercicio que estamos desarrollando es de 27.45%

par(mfrow = c(1, 2))
curve(dgamma(x, shape = 4, scale = 3), from = 0, to = 30,
      col = "gold", lwd = 2, main = "FDP")

curve(pgamma(x, shape = 4, scale = 3), from = 0, to = 30,
      col = "brown", lwd = 3, main = "FDA")