CASO13

Objetivo

Determinar la probabilidad mediante regla de Bayes de varios ejercicios

Descripción

Al disponer de probabilidades de varios conjuntos se requiere determinar la probabilidad en utilizando la fórmula de regla de Bayes.

Cargar librerias

library(knitr)

Evento sectores

Prob.Servi=0.40
Prob.Salud=0.35
Prob.Otros=0.25
cat("Las probabilidades por cada servicio")

## Las probabilidades por cada servicio

Prob.Servi; Prob.Salud; Prob.Otros

## [1] 0.4

## [1] 0.35

## [1] 0.25

Eventos Mujeres y Hombres

Pserv.Mujer=0.30
Pserv.Hombre=0.70

Sector Salud

Psalud.Mujer=0.60
Psalud.Hombre=0.40
Psalud.Mujer; Psalud.Hombre

## [1] 0.6

## [1] 0.4

Sector Otros

Potros.Mujer=0.45
Potros.Hombre=0.55
Potros.Mujer; Potros.Hombre

## [1] 0.45

## [1] 0.55

Ley de Multiplicación

ProbServ.I.Mujer=Prob.Servi*Pserv.Mujer
ProbServ.I.Hombre=Prob.Servi*Pserv.Hombre
ProbServ.I.Mujer; ProbServ.I.Hombre

## [1] 0.12

## [1] 0.28

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

ProbSalud.I.Mujer=Prob.Salud*Psalud.Mujer
ProbSalud.I.Hombre=Prob.Salud*Psalud.Hombre
ProbSalud.I.Mujer; ProbSalud.I.Hombre

## [1] 0.21

## [1] 0.14

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

ProbOtros.I.Mujer=Prob.Otros*Potros.Mujer
ProbOtros.I.Hombre=Prob.Otros*Potros.Hombre
ProbOtros.I.Mujer; ProbOtros.I.Hombre

## [1] 0.1125

## [1] 0.1375

Calculando la probabilidad por Teorema de Bayes

Ejemplo

1. Prob(Salud | Hombre)

TBResult=ProbSalud.I.Hombre/(ProbServ.I.Hombre+ProbSalud.I.Hombre+ProbOtros.I.Hombre)
TBResult

## [1] 0.2511211

cat("1. Prob(Salud | Hombre): Persona que sea del sector Salud y que sea hombre es: ",TBResult)

## 1. Prob(Salud | Hombre): Persona que sea del sector Salud y que sea hombre es:  0.2511211

2.Prob(Salud | Mujer)

TBResult=ProbSalud.I.Mujer/(ProbServ.I.Mujer+ProbSalud.I.Hombre+ProbOtros.I.Mujer)
TBResult

## [1] 0.5637584

cat("2. Prob(Salud | Mujer): Persona que sea del sector Salud y que sea Mujer es: ",TBResult)

## 2. Prob(Salud | Mujer): Persona que sea del sector Salud y que sea Mujer es:  0.5637584

3.Prob(Servicios | Hombre)

TBResult=ProbServ.I.Hombre/(ProbServ.I.Hombre+ProbSalud.I.Hombre+ProbOtros.I.Hombre)
TBResult

## [1] 0.5022422

cat("3. Prob(Servicios | Hombre): Persona que sea del sector Servicios y que sea Hombre: ",TBResult)

## 3. Prob(Servicios | Hombre): Persona que sea del sector Servicios y que sea Hombre:  0.5022422

4.Prob(Servicios | Mujer)

TBResult=ProbServ.I.Mujer/(ProbServ.I.Mujer+ProbSalud.I.Mujer+ProbOtros.I.Mujer)
TBResult

## [1] 0.2711864

cat("4. Prob(Servicios | Mujer): Persona que sea del sector Servicios y que sea Mujer: ",TBResult)

## 4. Prob(Servicios | Mujer): Persona que sea del sector Servicios y que sea Mujer:  0.2711864

Interpretacion

Ejemplo

Se concluye que en el experimento de elegir a una persona al azar y que ya se conoce que ‘Hombre’, entonces se determina mediante el Teorema y la Fórmula de Bayes la probababilidad de que una persona sea del sector ‘Salud’ dado que sea apriori ‘Hombre’

La probabilidad es de 0.2511 o sea del 25.11% que significa que si se elige a una persona y es ‘Hombre’ hay una probabilidad del 25.11% de que sea del sector ‘Salud’

Num. 2

El ejercicio nos pide sacar la probabilidad de que la persona conociendo que es “Mujer” entonces usamos el teorema y formula de Bayes para poder saber que la persona trabaje en el sector “Salud” y sea “Mujer”

La respuesta es de 56.37% lo que significa que la probabilidad de que la persona trabaje en el sector “Salud” y sea “Mujer” es de 56.37%

Num.3

El ejercicio nos pide sacar la probabilidad de que la persona conociendo que es “Hombre” entonces usamos el teorema y formula de Bayes para poder saber que la persona trabaje en el sector “Servicios” y sea “Hombre”

La respuesta es de 50.22% lo que significa que la probabilidad de que la persona trabaje en el sector “Servicios” y sea “Hombre” es de 50.22%

Num.4

El ejercicio nos pide sacar la probabilidad de que la persona conociendo que es “Mujer” entonces usamos el teorema y formula de Bayes para poder saber que la persona trabaje en el sector “Servicios” y sea “Mujer”

La respuesta es de 27.11% lo que significa que la probabilidad de que la persona trabaje en el sector “Servicios” y sea “Mujer” es de 27.11%