PN <- (3/5)
PR <- (2/5)
PN.PR <- (3/8)
PN.PN <- (5/8)
PR.PR <- (4/8)
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##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##La probabilida en el primer evento de que sea roja es: 0.4
###Sacando el denominador para el teorema de bayes
PRdenominador <- (PN * PN.PR) + (PR * PR.PR)##probabilidad de que salga una bolita roja en el segundo evento después de sacar una bolita roja en el primer evento usando Teorema de Bayes
PTB.R.R <- (PR * PR.PR )/ (PRdenominador)
PTB.R.R## [1] 0.4705882#Probabilidad dentro del 100% PTB.R.R * 100 ## [1] 47.05882
##probabilidad de que salga una bolita negra en el segundo evento después de sacar una bolita negra en el primer evento usando Teorema de Bayes
PTB.N.N <- (PN * PN.PN )/ (PRdenominador)
PTB.N.N## [1] 0.8823529#Probabilidad dentro del 100% PTB.N.N * 100