```{r data generation, echo = FALSE, results = "hide"}
library("exams")
library("exams.forge")
instruction <- NULL
grenzen      <- histbreaks(seq(120, 180, by=10), 5)
klassen      <- sprintf("%i - %i", grenzen[-length(grenzen)], grenzen[-1])
breiten      <- diff(grenzen)
klassenmitte <- grenzen[-1]-breiten/2
f    <- ddiscrete(runif(length(klassen)), unit=20)
n    <- sample_size_freq(seq(5,200,5), f)
tab  <- cbind(f, cumsum(f), f/breiten)
dimnames(tab) <- list(klassen, c("$f_i$", "$F(x_j)$", "$f_k(x_j)$"))
htab <- html_matrix_sk(tab, "Größenklassen", c("%.2f", "%.2f", "%.4f"))
ind  <- sort(sample(length(grenzen), 2))
gf   <- ind[1]:(ind[2]-1)
gi   <- grenzen[ind]
sc   <- num_result(n*sum(f[gf], na.rm=TRUE), 1)
```

Question
========

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

`r n` Schüler der Leonhard-Euler-Schule in Berlin wurden für einen Gesundheitstest gemessen und gewogen. Für die Körpergröße in cm ergab sich dabei folgende Häufigkeitsverteilung:

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

Wie viel Schüler sind zwischen `r gi[1]` und `r gi[2]` Zentimeter groß?

Solution
========

$$n \cdot f(`r gi[1]`\leq X \leq `r gi[2]`) =  `r sc$x[1]`$$

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