TEOREMA DE BAYES Caso: personas que trabajan en sectores y sean mujeres y hombres.

ps<-0.40
psu<-0.35
po<-0.25
cat("Las probabilidades por cada servicio")
## Las probabilidades por cada servicio
ps;psu;po
## [1] 0.4
## [1] 0.35
## [1] 0.25

Eventos Mujeres y Hombres se dan las probabilidades de que sea de algungénero en función del servicio. MUjeres: pservm<-0.30 Hombres: pservh<-0.70

pservm<-0.30
pservh<-0.70
pservm; pservh
## [1] 0.3
## [1] 0.7

Sector salud Mujeres: psaludm<- 0.60 Hombres: psaludh<-0.40

psaludm<- 0.60
psaludh<-0.40
psaludm; psaludh
## [1] 0.6
## [1] 0.4

Sector Otros

Mujeres: potrosm<- 0.45 Hombres: potrosh<- 0.55

potrosm<- 0.45
potrosh<- 0.55
potrosm; potrosh
## [1] 0.45
## [1] 0.55

Ley de Multiplicación La ley de Multiplicacion es útil para calcular la probabilidad de la intersección de eventos.

La ley de Multiplicación se absa en la definición de probabilidad condicional.

Se multiplican las probabilidades y en este caso teniendo lasprobabilidades identificadas, se determinan facilmente.

Probabilidad de que sea Hombre o Mujer en función de Servicios

psim<- ps*pservm
psih<- ps*pservh
psim;psih
## [1] 0.12
## [1] 0.28

Probabilidad de que sea Hombre o Mujer en función de Salud

psaim<- psu*psaludm
psaih<- psu*psaludh
psaim;psaih
## [1] 0.21
## [1] 0.14

Probabilidad de que sea Hombre o Mujer en función de Otros

poim<-po*potrosm
poih<- po*potrosh
poim;poih
## [1] 0.1125
## [1] 0.1375

Calculando la probabilidad por Teorema De Bayes

tbr<- psaih/(pservh+psih+poih)
tbr
## [1] 0.1252796
cat("1.tbr<- psih/(pservh+psih+poih): Persona que sea del sector Salud y que sea hombre es:
 ", tbr)
## 1.tbr<- psih/(pservh+psih+poih): Persona que sea del sector Salud y que sea hombre es:
##   0.1252796

Se pide Encontrar las respuestas a las preguntas de probabilidad siguientes:

persona del sector salud que sea mujer persona del sector servicio que sea mujer persona del sector otros que sea mujer

Rsauld<- psaim/(pservm+psim+poim)
Rsauld
## [1] 0.3943662
cat("Rsauld<- psaim/(pservm+psim+poim): persona del sector salud que sea mujer es: ", Rsauld)
## Rsauld<- psaim/(pservm+psim+poim): persona del sector salud que sea mujer es:  0.3943662
Rservicio<- psim/(pservm+psaim+poim)
Rservicio
## [1] 0.1927711
cat("Rservicio<- psim/(pservm+psim+poim): persona del sector Servicio que sea mujer es: ", Rservicio)
## Rservicio<- psim/(pservm+psim+poim): persona del sector Servicio que sea mujer es:  0.1927711
Rotros<- poim/(pservm+psaim+psim)
Rotros
## [1] 0.1785714
cat("Rotros<- poim/(pservm+psaim+psim): persona del sector Servicio que sea mujer es: ", Rotros)
## Rotros<- poim/(pservm+psaim+psim): persona del sector Servicio que sea mujer es:  0.1785714