<!--- Filename should be: topic_story_anwserformat.Rmd --->
<!--- vm_poExp_8_1a.Rnw --->
  
```{r,  echo = FALSE, results = "hide"}
library("exams")
include_supplement('dsl.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
library("extraDistr")
repeat {
  border  <- sample(3:10, 1)-1
  lambda  <- sample(seq(0.5, 6, by=0.1), 1)
  if (ppois(border, lambda = lambda)>1e-3) break
}
d       <- distribution("pois", lambda=lambda)
ptype   <- "less"
sc      <- num_result(cdf(d, border), 4)
txt     <- nsprintf(border, "%i Netzunterbrechungen",
                    '0'="keine Netzunterbrechung",
                    '1'="eine Netzunterbrechung")
```

Question
========

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

Ein Angestellter wird von seiner Firma in das Homeoffice geschickt. Für eine höhere Übertragungsrate wechselt er seinen Internetprovider. Leider gibt es trotzdem immer noch im Mittel `r lambda` Netzunterbrechungen pro Monat. Betrachten Sie die Zufallsvariable $X:$"Anzahl der Netzunterbrechungen pro Monat".

Wie groß ist die Wahrscheinlichkeit, dass es in einem Monat `r txt` oder weniger gibt?

```{r, child='dsl.num'}
```

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