```{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    <- round(runif(n, min=70, max=130), 0)
sc   <- num_result (c(mean(x), x), digits = 1, tolmult = 1)
```

Question
========

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

Es wurden folgende Intelligenzquotienten bei  `r n` Probanden erhoben:

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

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

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