Objetivo : Determinar la probabilidad condicional de varios ejercicios

Descripción Al disponer de probabilidades de varios conjuntos se requiere determinar la probabilidad condicional aplicando la fórmula

Cargar librerías

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

Identificar tres ejercicios de la literatura WEB o libros que se relacionen con probabilidad condicional

En un grupo de 100 estudiantes, P(A∩B)=35 jóvenes juegan al fútbol y al baloncesto, mientras que P(B)=80 de los miembros practican fútbol. ¿Cuál es la probabilidad de que uno de los estudiantes que juega al fútbol, también juegue al baloncesto o básquet?

Dfutbol<- 80
futYbas<- 35
p.futYbas<- futYbas/Dfutbol


paste("La probabilidad de que uno de los estudiantes que juega al fútbol, también juegue baloncesto es: ", round(p.futYbas * 100,2), "%")
## [1] "La probabilidad de que uno de los estudiantes que juega al fútbol, también juegue baloncesto es:  43.75 %"

El 76 % de los estudiantes de Ingeniería Civil han aprobado resistencia de materiales y el 45 % aprobaron estática. Además, el 30 % aprobaron resistencia de materiales y estática. Si Camilo aprobó resistencia de materiales, ¿qué probabilidad tiene de haber aprobado también estática?

EA <- 76
EB <- 45 
EAB <-30 

eventob.eventoA <-EAB/ EB
paste("qué probabilidad tiene de haber aprobado también estática: ", round(eventob.eventoA * 100, 2), "%")
## [1] "qué probabilidad tiene de haber aprobado también estática:  66.67 %"

En un acuario se tienen solo 2 especies de peces. El 40 % de los peces del acuario son de la especie azul y el 60% son de la especie roja. De la especie azul, el 30 % son machos; mientras que, de la especie roja, el 40% son hembras. Si se selecciona un pez al azar,

datos <- data.frame(Especie = c("Pez azul","pez Rojo","total peces"), Macho = c("30%","?¿%","40%"), Hembra = c("?¿","40%","60%"))
pa <- 0.40
pr <- 0.60
paM <- 0.30
paF <- 0.70
prM <- 0.60
prF <- 0.40
pmtotal <- prM + paM 
pftotal <- prF + paF

pestotal <- pa + pr
evento <- pftotal / pestotal;
evento <- round((paF / evento) / evento * 100, 3)
paste("Su probabilidad de que sea especie azul es: ", evento,"%")
## [1] "Su probabilidad de que sea especie azul es:  57.851 %"
evento <- pmtotal / pestotal;
evento <- round((paM / evento) / evento, 3) * 100
paste("la probabilidad de que sea especie azul es: ",evento,"%")
## [1] "la probabilidad de que sea especie azul es:  37 %"

interpretación del caso de entre 80 a 100 palabras tratando de interpretar para que sirve la probabilidad condicional en cada caso.

Este es un caso un poco diferente a los demas, ya que abarcaremos 3 situaciones distintas buscando sus respectivas probabilidades, poniendo bien en practica los temas vistos durante la ultima semana de clases.