Resultado de Prueba Clínica de Micoplasma

Resultado de prueba clínica de Micoplasma Calcule la probabilidad de realmente tener micoplasma (M. pneumoniae) con un resultado positivo, utilizando el teorema de Bayes, con los siguientes valores previos:

prevalencia: 4%

sensibilidad: 93%

especificidad: 98%

Cálculo de la probabilidad de un resultado positivo conjunto en la prueba clínica de Micoplasma

P_I <- 0.040
P_S <- 0.960
P_Ip <- 0.930
P_Sp <- 0.020

P_Pos <- P_S * P_Sp + P_I * P_Ip
P_Pos

## [1] 0.0564

Definir la función para la probabilidad inversa con el teorema de Bayes

bayes_prob <- function(P_I, P_Ip, P_Pos) {
  P_I_dado_Pos <- ((P_Ip * P_I) / P_Pos)
  return(P_I_dado_Pos)
}

# cálculo con los datos anteriores
PIp <- bayes_prob(P_I, P_Ip, P_Pos)
PIp

## [1] 0.6595745