##Declarando las probabilidades ya conocidas
PA1 <- .65
PA2 <- .35
PG.PA1 <- .97
PB.PA1 <- .03
PG.PA2 <- .95
PB.PA2 <- .05##probabilidad, sea del proveedor 1 y sea pieza buena/mala
PA1.I.G <- PA1 * PG.PA1
PA1.I.B <- PA1 * PB.PA1
cat("La probabilidad de que sea del proveedor 1 y que la pieza sea buena es: ",PA1.I.G)## La probabilidad de que sea del proveedor 1 y que la pieza sea buena es: 0.6305##La probabilidad de que sea del proveedor 1 y que la pieza sea buena es: 0.6305
cat("La probabilidad de que sea del proveedor 1 y que la pieza sea mala es: ",PA1.I.B)## La probabilidad de que sea del proveedor 1 y que la pieza sea mala es: 0.0195##La probabilidad de que sea del proveedor 1 y que la pieza sea mala es: 0.0195
##probabilidad, sea del proveedor 2 y sea pieza buena/mala
PA2.I.G <- PA2 * PG.PA2
PA2.I.B <- PA2 * PB.PA2
cat("La probabilidad de que sea del proveedor 1 y que la pieza sea buena es: ",PA2.I.G)## La probabilidad de que sea del proveedor 1 y que la pieza sea buena es: 0.3325##La probabilidad de que sea del proveedor 1 y que la pieza sea buena es: 0.3325
cat("La probabilidad de que sea del proveedor 1 y que la pieza sea mala es: ",PA2.I.B)## La probabilidad de que sea del proveedor 1 y que la pieza sea mala es: 0.0175##La probabilidad de que sea del proveedor 1 y que la pieza sea mala es: 0.0175
###Utilizando la fórmula del teorema de bayes, calcular la probabilidad de que una pieza esté mala y sea del proovedor 1
TB.PA1.B <- (PA1 * PB.PA1) / (PA1 * PB.PA1 + PA2 * PB.PA2)
cat("Conforme al teorema de Bayes (TB), la probabilidad de que sea una pieza mala (Bad) condicionada a que sea primero del proveedor1 es: ", TB.PA1.B)## Conforme al teorema de Bayes (TB), la probabilidad de que sea una pieza mala (Bad) condicionada a que sea primero del proveedor1 es: 0.527027##Conforme al teorema de Bayes (TB), la probabilidad de que sea una pieza mala (Bad) condicionada a que sea primero del proveedor1 es: 0.527027
##Utilizando la fórmula del teorema de bayes, calcular la probabilidad de que una pieza esté mala y sea del proovedor 2
TB.PA2.B <- (PA2 * PB.PA2) / (PA1 * PB.PA1 + PA2 * PB.PA2)
cat("Conforme al teorema de Bayes (TB), la probabilidad de que sea una pieza mala (Bad) condicionada a que sea primero del proveedor2 es: ", TB.PA2.B)## Conforme al teorema de Bayes (TB), la probabilidad de que sea una pieza mala (Bad) condicionada a que sea primero del proveedor2 es: 0.472973##Conforme al teorema de Bayes (TB), la probabilidad de que sea una pieza mala (Bad) condicionada a que sea primero del proveedor2 es: 0.472973