Probabilidades con teorema de Bayer

Si la probabilidad de que una pieza provenga del proveedor 1 es 0.60 Si la probabilidad de una pieza se comrpa al proveedor 2 es .40 Si la probabilidad de que una pieza mala (Bad) sea del 0.03 y buena (Good) de 0.97 para poveedor 1. Si la probabilidad de que una pieza mala (Bad) sea del 0.04 y buena (Good) de 0.96 para poveedor 2.

Para únicamente las piezas malas y dada la información de que la pieza está mala,

¿Cuál es la probabilidad de que sea del proveedor 1? ¿Cuál es la probabilidad de que sea del proveedor 2? ### Probabilidades de que una pieza sea buena o mala y de qué proveedor

A1=.6
A2=.4
A1a=.97
A1b=.03
A2a=.96
A2b=.04

Probabilidad de que una pieza mala sea del proveedor 1

a1c=(A1*A1b)/((A1*A1b)+(A2*A2b))
a1c
## [1] 0.5294118

Probabilidad de que una pieza mala sea del proveedor 2

a2c=(A2*A2b)/((A2*A2b)+(A1*A1b))
a2c
## [1] 0.4705882