<!--- Filename should be: topic_story_anwserformat.Rmd --->

```{r,  echo = FALSE, results = "hide"}
include_supplement('binomial.num', recursive=TRUE)
library("exams")
library("exams.forge")
instruction <- NULL
library("extraDistr")
border  <- c(NA, NA)
repeat{
  size <- sample(5:32, 1)
  prob <- sample(seq(0.05, 0.5, by=0.05), 1)
  border  <- sample(c(0, 2:size), 1)
  d       <- distribution("binom", size=size, prob=prob)
  ptype   <- "less"
  lsg     <- cdf(d, border)
  if (!binom2norm(size, prob) && (lsg>1e-3)) break
}
sc      <- num_result(lsg, 4)
```

Question
=======

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

<!--- Exercise text is in story file --->

Ein Impfstoffhersteller entwickelt zur Behandlung einer Virusinfektion ein Mittel, das bei `r 100*prob`% der Patienten Nebenwirkungen zeigen soll. Es sei $X$: "Die Anzahl der geimpften Patienten mit Nebenwirkungen". Wenn `r size` Patienten geimpft wurden, wie groß ist die Wahrscheinlichkeit, dass `r border` oder weniger Patienten Nebenwirkungen zeigen?

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

Meta-information
================
extype: num
exsolution: `r round2(lsg, 4)`
extol: 0.001
exname: `r if(exists("story")) story else knitr::current_input()`
