```{r, echo=FALSE}
include_supplement("amittel.num", recursive=TRUE)
# required variables:
#  sc <- num_result(...)
library("exams.forge")
instruction <- NULL
library("knitr")
n    <- sample(4:8, size=1)
x    <- sample(1:10, size=n)
sc   <- num_result (c(mean(x), x), digits = 2)
```

Question
========

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

In einem Online-Shop werden regelmäßig Produkte an Kunden verschickt. Um die Effizienz des Versandprozesses zu bewerten, sollen die Lieferzeiten der Produkte analysiert werden. Die Lieferzeit wird als die Zeitspanne definiert, die zwischen dem Zeitpunkt liegt, an dem der Kunde die Bestellung aufgibt, und dem tatsächlichen Erhalt des Produkts.

Um dies zu tun, soll die durchschnittliche Lieferzeit für verschiedene Produktgruppen bestimmt werden. Zu diesem Zweck wurden Daten über die Lieferzeiten der letzten `r n` Bestellungen einer Produktgruppe gesammelt:

`r as_string(sprintf("$x_{%.0f}=%i$", 1:n, x), last = ' und ')` Tage.

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

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