```{r, echo=FALSE}
library('exams')
include_supplement('totalwk.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
repeat {
  jp <- ddiscrete(runif(4))
  a  <- jp[1]+jp[2]
  b  <- jp[1]+jp[3]
  ba <- jp[1]/a
  bna <- jp[3]/b
  if (all(is_terminal(c(ba,bna)))) {
    w   <- runif(1>0.5)
    gesucht <- ifelse(w, "B", "!B")
    gestxt  <- paste("Proband ist", ifelse(w, "", "nicht"), "depressiv")  
    ev  <- prob_solve(gesucht, "A"=a, "B|A"=ba, "B|!A"=bna)
    if (!is.na(ev)) break
  }
}
sc  <- num_result(ev, 4)
```

Question
=======

```{r, error=TRUE, child=instruction}
```

In einer Probandengruppe für die Testung eines Antidepressivums sind `r 100*a`% weiblich. Bei den Frauen in der Probandengruppe haben `r 100*ba`% eine Depression, bei den Männern sind es `r 100*bna`%.

Benutzen Sie die folgenden Ereignisse:

* A: "Proband ist weiblich"
* B: "Proband ist depressiv"

Wie groß ist die Wahrscheinlichkeit, dass für einen zufällig gezogenen Proband gilt "`r gestxt`"?

```{r, child="totalwk.num"}
```

Meta-information
================
extype: num
exsolution: `r sc$fx[1]`
extol: `r sc$tolerance`
exname: `r if(exists("story")) story else knitr::current_input()`
