```{r data generation, echo = FALSE, results = "hide"}
library("exams")
library("exams.forge")
instruction <- NULL
n <- 4+sample(4, 1)
notenpool <- c(1.0, 1.3, 1.7, 2.0, 2.3, 2.7, 3.0, 3.3, 3.7, 4.0, 5.0)
note <- sample(notenpool,n, replace = TRUE)
IQ   <- sample(seq(90,130,1), n, replace=TRUE)
tab  <- cbind(note, IQ)
dimnames(tab) <- list(1:n, c("Note", "IQ"))
htab <- html_matrix_sk(tab, 'Student', c("%.1f", "%.0f"))
sc   <- num_result(mean(IQ), 2)
```

Question
========

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

Nach der Veröffentlichung der Ergebnisse einer Klausur hat ein Student die Noten von `r n` Kommilitonen gesammelt, deren Intelligenzquotient (IQ) er kennt. Seine Datenerhebung hat er in der folgenden Tabelle zusammengefasst:

```{r xtable1, echo = FALSE, results = "asis"}
cat(toHTMLorLatex(htab))
```

Berechnen Sie den durchschnittlichen IQ der Studenten. `r round_de(sc$digits)`.

Solution
========

$$
\bar{x}_{IQ} = \frac{1}{ `r n`} \sum_{i=1}^{ `r n`} x_{IQ,i} = `r sc$x[1]`
$$


Meta-information
================
extype: num
exsolution: `r sc$fx[1]`
extol: `r sc$tolerance`
exname: US-aMittel-6.Rmd
