```{r data generation, echo = FALSE, results = "hide"}
library("exams")
include_supplement('bayes.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
targets <- c(paste0(c('S', 'I', 'R'), '|H'), paste0(c('S', 'I', 'R'), '|!H'))
mischung <-c("Cannabis Sativa", "Cannabis Indica", "Cannabis Ruderalis")
repeat {
  target  <- sample(length(targets), 1)

  pfabrik <- ddiscrete(runif(3))
  pquali  <- sort(sample(seq(0.1, 0.9, by=0.1), 3), decreasing=TRUE)
  ev      <- prob_solve('R|!H', 
#                        "I"=pfabrik[1], "R"=pfabrik[2], "S"=pfabrik[3],
#                        "H|I"=pquali[1], "H|R"=pquali[2], "H|S"=pquali[3], 
                        "S"=pfabrik[1], "I"=pfabrik[2], "R"=pfabrik[3],
                        "H|S"=pquali[1], "H|I"=pquali[2], "H|R"=pquali[3], 
                        partition=c('I', 'R', 'S'), getprob=TRUE)
  if (!is.na(ev)) break
}
sc  <- num_result(ev, 4)
```

Question
=======

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

In einem kleinen Dorf namens Herbalville gibt es einen berühmten Heiler, der Kräutermischungen mit Hanf zur Behandlung verschiedener Krankheiten herstellt. Der Heiler benutzt drei verschiedene Hanfsorten: Cannabis Sativa, Cannabis Indica und Cannabis Ruderalis. Jede Mischung hat eine unterschiedliche Erfolgsrate, um Patienten zu heilen.

* Die Mischung mit Cannabis Sativa heilt `r 100*pquali[1]`% der Patienten.
* Die Mischung mit Cannabis Indica heilt `r 100*pquali[2]`% der Patienten.
* Die Mischung mit Cannabis Ruderalis heilt `r 100*pquali[3]`% der Patienten.

Der Heiler verwendet Mischung mit Cannabis Sativa bei `r 100*pfabrik[1]`% der Patienten, Mischung mit Cannabis Indica bei `r 100*pfabrik[2]`% der Patienten und Mischung mit Cannabis Ruderalis bei `r 100*pfabrik[3]`% der Patienten. Mit welcher Wahrscheinlichkeit hat ein Patient, der `r if (target>3) ' nicht ' else ''` geheilt wurde, die Mischung mit `r mischung[1+(target%%3)]` bekommen?

Benutzen Sie die folgenden Ereignisse:

* S: "Mischung mit Cannabis Sativa"
* I: "Mischung mit Cannabis Indica "
* R: "Mischung mit Cannabis Ruderalis"
* H: "Patient geheilt"

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

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