Objetivo

Determinar probabilidades para eventos independientes.

Descripción

Realizar y determinar probabilidades a partir de la probabilidad que se tienen en eventos independientes.

Ejercicio 1.

Extraido de:http://probabilidadmitad1.blogspot.com/p/eventos-dependientes-e-independientes.html

El macabro y no recomendado juego de la ruleta rusa, consiste en introducir una bala en una de las seis recámaras del cilindro del revólver, dejando las otras cinco vacías. Ahora,… si cada juego consiste en hacer girar elcilindro, apuntar a la cabeza y apretar el gatillo.

recamaras<-6
cargadas<-1
vacias<-recamaras-cargadas
vivo<- vacias/recamaras
paste("La probabilidad de que sobrevica a en un tiro es: ", round(vivo*100,2),"%")
## [1] "La probabilidad de que sobrevica a en un tiro es:  83.33 %"
paste("La probabilidad de que sobreviva en 2 tiros seguidos es: ", round((vivo*vivo)*100,2),"%")
## [1] "La probabilidad de que sobreviva en 2 tiros seguidos es:  69.44 %"

Ejercicio 2.

Extraido de: https://content.nroc.org/Algebra.HTML5/U12L2T2/TopicText/es/text.html

Martha tiene 10 pares de calcetines: 2 Negros, 2 cafes, 3 blancos, 1 azul, y 1 verde, 1 rojo. Hoy quiere usar el par blanco, pero tiene prisa para llegar al trabajo, por lo que agarra al azar. Si no es blanco, lo devolvera al cajon. Si continua agarrando pares aleatoriamente Cual es la probabilidad de sacar un par blanco en su tercer intento

Negro <- 2
Cafe <-2 
Blanco1 <- 3
Rojo <- 1
Azul1 <- 1
Verde1 <- 1
Dif.colo <- 7
Total1 <- 10

Prob.Blan <- Dif.colo / Total1 * Dif.colo / Total1 * Blanco1 / Total1

paste("la probabilidad de sacar un par blanco en su tercer intento : ", round((Prob.Blan) *100,2), "%")
## [1] "la probabilidad de sacar un par blanco en su tercer intento :  14.7 %"

Ejercicio 3.

Extraido de: http://code.jc-mouse.net/posts/apuntes/428/ejercicios-de-probabilidad-de-ev.html

En una empresa trabajan hombres y mujeres, además se sabe que un 15% de los empleados se han perfeccionado en el extranjero. Si el 35% de las personas son mujeres.

EMP.EXT <- 0.15
MUJERES<- 0.35

paste("La probabilidad de que al escojer a una persona de la empresa esta sea mujer y esta haya perfeccionado: ", round(EMP.EXT * MUJERES * 100,2), "%" )
## [1] "La probabilidad de que al escojer a una persona de la empresa esta sea mujer y esta haya perfeccionado:  5.25 %"

Interpretacion

En este caso tenemos lo que son 3 ejercicios en los cuales podemos observar la probabilidad independiente de cada uno En el ejercicio uno, nos piden la probabilidad de estar vivo después de jugar dos veces la ruleta rusa en este la probabilidad nos da de un 69.44%, pero también tenemos la probabilidad de un solo tiro que esta es del 83.33%. En el ejercicio dos nos piden la probabilidad de sacar un par de calcetines blancos en su tercer intento y esta es del 14.7% En el tercer ejercicio nos piden la probabilidad de que al escoger a una persona de la empresa esta sea mujer y esta haya perfeccionado es del 5.25%