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

```{r,  echo = FALSE, results = "hide"}
include_supplement('autobahnkontrolle.num', recursive=TRUE)
library("exams")
library("exams.forge")
instruction <- NULL
library("extraDistr")
border  <- c(NA, NA)
lambda  <- sample(seq(0.5, 6, by=0.1), 1)
d       <- distribution("pois", lambda=lambda)
ptype   <- "parameter"
lsg     <- lambda
sc      <- num_result(lsg, 4)
```

Question
=======

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

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

Bei einer Autobahnkontrolle registriert die Polizei pro Stunde im Durchschnitt `r lambda` Autofahrer mit überhöhter Geschwindigkeit, wobei all diese Autofahrer unabhängig voneinander zu schnell fahren. Bestimmen Sie für die Zufallsvariable $X$: "Anzahl der Raser pro Stunde" das richtige Verteilungsmodell und geben Sie den Verteilungsparameter an.

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

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