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?
# bolsa/evento 1
PN <- (5/8)
PR <- (3/8)
# bolsa/evento 2
# Opción 1 del evento 2
PN.PN <- (7/11)
PN.PR <- (4/11)
# Opción 2 del evento 2
PR.PN <- (6/11)
PR.PR <- (5/11)
PRdenominador <- (PN * PN.PR) + (PR * PR.PR)
PTB.R.R <- (PR * PR.PR )/ (PRdenominador)
cat ("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)
## Cuál es la probabilidad de que en el segundo evento se obtenga una bolita roja siendo que en la primera salió una roja: 0.4285714
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?
PNdenominador <- (PN * PN.PR) + (PR * PR.PR)
PTB.N.N <- (PN * PN.PN )/ (PNdenominador)
cat ("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)
## Cuál es la probabilidad de que en el segundo evento se obtenga una bolita negra siendo que en la primera salió una negra: 1