```{r, echo=FALSE}
library('exams')
include_supplement('totalwk.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
repeat {
  jp   <- data_prob2()
  prob <- attr(jp, "prob")
  if (all(is_terminal(c(prob["B|A"], prob["B|!A"])), prob["B|A"]<prob["B|!A"])) {
    w   <- runif(1>0.5)
    gesucht <- ifelse(w, "B", "!B")
    gestxt  <- ifelse(w, "eine", "keine") 
    ev  <- prob_solve(gesucht, prob["A"], prob["B|A"], prob["B|!A"])
    if (!is.na(ev)) break
  }
}
sc  <- num_result(ev, 4)
```

Question
=======

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

Bei einem Speditionsunternehmen wird vor einer langen Fahrt mit `r 100*prob["A"]`% Wahrscheinlichkeit eine Inspektion des LKWs vorgenommen.
Bei inspizierten LKWs tritt mit Wahrscheinlichkeit `r 100*prob["B|A"]`% eine Panne während der Fahrt auf, bei nicht-inspizierten mit `r 100*prob["B|!A"]`%.

Benutzen Sie die folgenden Ereignisse:

* A: "LKW-Inspektion wurde durchgeführt"
* B: "LKW hat Panne"

Wie groß ist die Wahrscheinlichkeit für `r gestxt` Panne bei der Fahrt?

```{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()`
