Bayes-Theorem1

bayes

probability

num

Published

November 8, 2023

Pr_Tpos_geg_Kpos <- (sample(085:99, size = 1) / 100 ) %>% round(2)
Pr_Tpos_geg_Kneg <- (sample(1:10, size = 1) / 100) %>% round(2)
Pr_Kpos <- (sample(01:10, size = 1) / 1000) %>% round(3)

Aufgabe

Ein Krebstest (\(T\)) habe die Wahrscheinlichkeit von 0.98, einen vorhandenen Krebs (\(K\)) zu erkennen. Diese Wahrscheinlichkeit bezeichnen wir als \(Pr(T+|K+)\). Der Test erkennt also die meisten Krebsfälle, und ein paar werden übersehen.

Manchmal macht der Test auch den umgekehrten Fehler: Ein gesunder Mensch wird fälschlich Krebs diagnostiziert, \(Pr(T+|K-)\). Diese Wahrscheinlichkeit liegt bei dem Test bei 0.1, zum Glück also relativ gering.

Die Grundrate dieser Krebsart belaufe sich in der Population auf 0.008, \(Pr(K+)\).

Aufgabe: Berechnen Sie die Wahrscheinlichkeit, dass ein Patient tatsächlich Krebs hat, wenn der Test positiv ist, also Krebs diagnostiziert hat!

Lösung

zaehler_bayes <- Pr_Tpos_geg_Kpos * Pr_Kpos
Pr_Tpos <- (zaehler_bayes + (1-Pr_Kpos) * Pr_Tpos_geg_Kneg)

sol <- Pr_Kpos_geg_Tpos <- zaehler_bayes / Pr_Tpos 
sol <- round(sol, 2)
sol

[1] 0.07

Die Lösung beträgt also: 0.07.

Categories:

bayes
probability
num

---
extype: num
exsolution: r sol
exname: Bayes-Theorem1
expoints: 1
categories:
- bayes
- probability
- num
date: '2023-11-08'
title: Bayes-Theorem1

---



```{r libs, include = FALSE}
library(tidyverse)
library(exams)
```


```{r global-knitr-options, include=FALSE}
knitr::opts_chunk$set(fig.pos = 'H',
                      fig.asp = 0.618,
                      fig.width = 4,
                      fig.cap = "", 
                      fig.path = "",
                      echo = FALSE,
                      message = FALSE,
                      warning = FALSE,
                      fig.show = "hold",
                     # out.width = "100%",
                      cache = TRUE)
```




```{r}
Pr_Tpos_geg_Kpos <- (sample(085:99, size = 1) / 100 ) %>% round(2)
Pr_Tpos_geg_Kneg <- (sample(1:10, size = 1) / 100) %>% round(2)
Pr_Kpos <- (sample(01:10, size = 1) / 1000) %>% round(3)
```




# Aufgabe

Ein Krebstest ($T$) habe die Wahrscheinlichkeit von ``r Pr_Tpos_geg_Kpos``, einen vorhandenen Krebs ($K$) zu erkennen.
Diese Wahrscheinlichkeit bezeichnen wir als $Pr(T+|K+)$.
Der Test erkennt also die meisten Krebsfälle, und ein paar werden übersehen.

Manchmal macht der Test auch den umgekehrten Fehler: Ein gesunder Mensch wird fälschlich Krebs diagnostiziert, $Pr(T+|K-)$.
Diese Wahrscheinlichkeit liegt bei dem Test bei ``r Pr_Tpos_geg_Kneg``, 
zum Glück also relativ gering.


Die Grundrate dieser Krebsart belaufe sich in der Population auf ``r Pr_Kpos``, $Pr(K+)$.

*Aufgabe*: Berechnen Sie die Wahrscheinlichkeit,
dass ein Patient tatsächlich Krebs hat, wenn der Test positiv ist, also Krebs diagnostiziert hat!



</br>
</br>
</br>
</br>
</br>
</br>
</br>
</br>
</br>
</br>

# Lösung



```{r echo = TRUE}
zaehler_bayes <- Pr_Tpos_geg_Kpos * Pr_Kpos
Pr_Tpos <- (zaehler_bayes + (1-Pr_Kpos) * Pr_Tpos_geg_Kneg)

sol <- Pr_Kpos_geg_Tpos <- zaehler_bayes / Pr_Tpos 
sol <- round(sol, 2)
sol
```


Die Lösung beträgt also: ``r sol``.




---

Categories: 

- bayes
- probability
- num