Determinar la probabilidad condicional
De un conjunto de datos extraidos de la literatura de probabilidad de entre libros y sitios web
Datos obtenidos
library(knitr)
prob.C <- 0.12
prob.A <- 0.11
prob.A.Inter.B <- 0.48
prob.B.Inter.A <- prob.A.Inter.B
Prob.A.dado.B <- prob.A.Inter.B / prob.A.Inter.B
paste("La pobabilida de que se sean copas: ", Prob.A.dado.B * 11/47, "%")
## [1] "La pobabilida de que se sean copas: 0.234042553191489 %"
Cual es la probabilidad de que una persona elegida al azar sea chico o estudio frances
#Chico o frances
prob.A <- 0.15
prob.A.Inter.B <- 0.20
prob.B.Inter.A <- prob.A.Inter.B
Probabilidad <- prob.A / prob.A.Inter.B
paste("La pobabilida de que sea chico o frances " , Probabilidad)
## [1] "La pobabilida de que sea chico o frances 0.75"
Y la probabilidad de que sea chica y no estudie frances
#Chica y no frances
prob.A <- 0.5
prob.A.Inter.B <- 0.20
prob.B.Inter.A <- prob.A.Inter.B
Probabilidad <- prob.A / prob.A.Inter.B
paste("La pobabilida de que sea chico o frances " , Probabilidad)
## [1] "La pobabilida de que sea chico o frances 2.5"
*En una ciudad el 40 de la poblacion tiene cabello casta