Teorema de Bayes

###Evento 1

PN <- (3/5) 
PR <- (2/5)
cat("La probabilida en el primer evento de que sea negra es: ",PN)
## La probabilida en el primer evento de que sea negra es:  0.6
cat("La probabilida en el primer evento de que sea roja es: ",PR)
## La probabilida en el primer evento de que sea roja es:  0.4

Evento 2

PN.PN <- (5/8)
PN.PR <- (3/8)

Evento 2 Opcion 2

PR.PN <- (4/8)
PR.PR <- (4/8)

Probabilidad de que sea roja

PRdenominador <- (PN * PN.PR) + (PR  * PR.PR)

cat("Calculando la probabilida de que sea roja según el diagrama de árbol: ",PRdenominador)
## Calculando la probabilida de que sea roja según el diagrama de árbol:  0.425
PTB.N.R <- (PN * PN.PR )/ (PRdenominador)
cat ("Cual es la probabilidad de de sacar una bolita roja del segundo evento o buzón, dado que en el primero fue bolita negra", PTB.N.R)
## Cual es la probabilidad de de sacar una bolita roja del segundo evento o buzón, dado que en el primero fue bolita negra 0.5294118

1.¿Cuál es la probabilidad de que en el segundo evento se obtenga una bolita roja siendo que en la primera salió una roja?

PTB.R.R <- (PR * PR.PR )/ (PRdenominador)
cat ("Cual es la probabilidad de de sacar una bolita roja del segundo evento o buzón, dado que en el primero fue bolita roja", PTB.R.R)
## Cual es la probabilidad de de sacar una bolita roja del segundo evento o buzón, dado que en el primero fue bolita roja 0.4705882

2.¿Cuál es la probabilidad de que en el segundo evento se obtenga una bolita negra siendo que en la primera salió una negra?

PTB.N.N <- (PN * PN.PN )/ (PRdenominador)
cat ("Cual es la probabilidad de de sacar una bolita negra del segundo evento o buzón, dado que en el primero fue bolita negra", PTB.N.N)
## Cual es la probabilidad de de sacar una bolita negra del segundo evento o buzón, dado que en el primero fue bolita negra 0.8823529