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. En este caso utilizando probabilidades de ejercicio con datos de

1.- Cargar librerias

library(knitr)

2.- Proceso de datos

Evento sectores

  • Existen tres sectores en donde trabajan las personas
  • Hay una probabilidad de que en el sector servicios trabaje 40%(0.40) de las personas
  • Hay una probabilidad de que en el sector salud trabaje 35%(0.35) de las personas
  • Hay una probabilidad de que en el sector otros trabaje 25%(0.25) de las personas
  • La suma debe dar 100% o 1

Sector Servicios

  • En el sector Servicios la probabilidad de que sea Mujer es del 0.30.
  • En el sector Servicios la probabilidad de que sea Hombre es del 0.70.

Sector Salud

  • En el sector Salud la probabilidad de que sea Mujer es del 0.60.
  • En el sector Salud la probabilidad de que sea Hombre es del 0.40.

Sector Otros

  • En el sector Otros la probabilidad de que sea Mujer es del 0.45.
  • En el sector Otros la probabilidad de que sea Hombre es del 0.55.

Las variables en R

  • Prob.Servi =0.40

  • Prob.Salud =0.35

  • Prob.Otros =0.25

  • PServ.Mujer = 0.30

  • PServ.Hombre = 0.70

  • PSalud.Mujer = 0.60

  • PSalud.Hombre = 0.40

  • POtros.Mujer = 0.45

  • POtros.Hombre = 0.55

Agregando datos a variables

Prob.Servi <- 0.40
Prob.Salud <- 0.35
Prob.Otros <- 0.25

## Probabilidad de ser mujer o hombre en Sector Servicio.
PServ.Mujer <- 0.30
PServ.Hombre <- 0.70
ProbServ.I.Mujer <- Prob.Servi * PServ.Mujer
ProbServ.I.Hombre <- Prob.Servi * PServ.Hombre

## Probabilidad de ser mujer o hombre en Sector Salud. 
PSalud.Mujer <- 0.60
PSalud.Hombre <- 0.40
ProbSalud.I.Mujer <- Prob.Salud * PSalud.Mujer
ProbSalud.I.Hombre <- Prob.Salud * PSalud.Hombre

## Probabilidad de ser mujer o hombre en sector Otros.
POtros.Mujer <- 0.45
POtros.Hombre <- 0.55
ProbOtros.I.Mujer <- Prob.Otros * POtros.Mujer
ProbOtros.I.Hombre <- Prob.Otros * POtros.Hombre

include_graphics("../Unidad_2/imagen3.jpg")

Ejercicio # 1

Se pide * Encontrar las respuestas a las preguntas de probabilidad siguientes aplicando la formula:

Profesor)

  • Prob(Salud | Hombre): Persona que sea del sector Salud y que sea hombre.
resultado <- round(ProbSalud.I.Hombre / 
  sum(ProbSalud.I.Hombre,ProbOtros.I.Hombre, ProbServ.I.Hombre) * 100, 3)

paste("Probabilidad de que la persona sea del sector salud y sea hombre: ",resultado,"%")
## [1] "Probabilidad de que la persona sea del sector salud y sea hombre:  25.112 %"

a)

  • Prob(Salud | Mujer): Persona que sea del sector Salud y que sea Mujer
resultado <- round(ProbSalud.I.Mujer / 
  sum(ProbSalud.I.Mujer, ProbServ.I.Mujer, ProbOtros.I.Mujer)* 100, 3)
paste("Probabilidad de que la persona sea del sector salud y sea mujer: ",resultado,"%")
## [1] "Probabilidad de que la persona sea del sector salud y sea mujer:  47.458 %"

b)

  • Prob(Servicios | Hombre): Persona que sea del sector Servicios y que sea Hombre.
resultado <- round(ProbServ.I.Hombre / sum(ProbServ.I.Hombre,ProbSalud.I.Hombre,ProbOtros.I.Hombre)* 100, 3)
paste("Probabilidad de que la persona sea del sector servicio y sea hombre: ",resultado,"%")
## [1] "Probabilidad de que la persona sea del sector servicio y sea hombre:  50.224 %"

c)

  • Prob(Servicios | Mujer): Persona que sea del sector Servicios y que sea Mujer.
resultado <- round(ProbServ.I.Mujer / sum(ProbServ.I.Mujer,ProbSalud.I.Mujer,ProbOtros.I.Mujer)* 100, 3)
paste("Probabilidad de que la persona sea del sector servicio y sea hombre: ",resultado,"%")
## [1] "Probabilidad de que la persona sea del sector servicio y sea hombre:  27.119 %"

3.- Interpretacion del caso 80 a 100 palabras.