#Objetivo.
#Determinar la probabilidad para eventos independientes de varios ejercicios.
#Descripción
#Al disponer de probabilidades de varios conjuntos se requiere determinar la probabilidad en eventos independiente aplicando la fórmula de multiplicar las probabilidades.
#1. Cargar librerías
library(knitr)
library(gtools)
#2. Identificar tres ejercicios de la literatura WEB o libros que se relacionen con probabilidad para eventos independientes
#Sacas una canica de una bolsa que contiene 2 canicas rojas, 2 blancas, y una verde. Anotas el color, regresas la canica a la bolsa, y sacas otra canica.
# Si A y B son eventos independientes entonces:
# P(A|B)=P(A)∗P(B)
#¿Cuál es la probabilidad de sacar canica roja ambas veces?
P.A <- 2/5
P.B <- 2/5
P.A.B <- P.A * P.B
paste("la probabilidad de sacar canica roja ambas veces es: ", P.A.B)
## [1] "la probabilidad de sacar canica roja ambas veces es: 0.16"
#Imagina que hay dos grupos de 5 personas, donde un miembro de cada grupo es elegido al azar para el círculo de ganadores, después uno de esos dos es elegido al azar para obtener un gran premio de dinero
#P(A|B)=P(A)∗P(B)
# ¿Cuál es su probabilidad de ganar el gran premio?
P.A <- 1/5
P.B <- 1/2
P.A.B <- P.A * P.B
paste("tu probabilidad de ganar el premio grande de dinero es: ", P.A.B)
## [1] "tu probabilidad de ganar el premio grande de dinero es: 0.1"
#Beth tiene 10 pares de calcetines: 2 negros, 2 cafés, 3 blancos, 1 rojo, 1 azul, y 1 verde. Hoy quiere usar el par blanco, pero tiene prisa para llegar al trabajo, por lo que agarra un para al azar. Si no es blanco, lo devolverá al cajón. Si continúa agarrando pares aleatoriamente,
# ¿Cuál es la probabilidad de sacar un par blando en su tercer intento?
# P(A) Un par de calcetines que no son blancos
# P(B) Un par de calcetines que no son blancos
# P(C) Un par de calcetines que son blancos
#P(A|B|C)=P(A)∗P(B)∗P(C)
P.A <- 7/10
P.B <- 7/10
P.C <- 3/10
P.A.B.C <- P.A * P.B * P.C
paste("la probabilidad de sacar un par blando en su tercer intento es: ", P.A.B.C)
## [1] "la probabilidad de sacar un par blando en su tercer intento es: 0.147"
#3. Conclusión.
#La probabilidad de eventos independientes nos permite determinar cual es la probabilidad de que un evento se presente en dado caso de que los demás eventos involucrados no afecten de ninguna manera su resultado, para ello tendremos que delimitar los alcances de cada evento o hacer que afecten distintos universos, un ejemplo sería sacar un 6 en un dado y cara en una moneda, ambos resultados pertenecen a universos diferentes.