```{r, echo=FALSE}
include_supplement("median_klassiert.num", recursive=TRUE)
# required variables:
#  h  <- histdata(...)
#  sc <- num_result(...)
library("tools")
library("magrittr")
library("exams.forge")
instruction <- NULL
n <- sample(25:100, 1)
k <- sample(4:7, 1)
repeat{
    x      <- round(rnorm(n, mean=1.8, sd=0.1), 2)
    breaks <- breaks(x, probs=k)
    h      <- histdata(x, breaks)
    if (unique_max(h$density)) break
}
m <- cbind(h$lower, h$upper, h$counts)
colnames(m) <- c("Von ...", "Bis unter ...", "Häufigkeit")
rownames(m) <- sprintf("%.0f", 1:length(h$density))
fcb <- "%.2f"
hxy <- html_matrix_sk (m, fmt=c(fcb, fcb, "%.0f"), title="Klasse")
sc  <- num_result (median(h), digits = 2, tolmult = 2)
```

Question
========

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

Es wurden folgende Körpergrößen bei  `r n` Männern erhoben:

```{r, echo=FALSE, results='asis'}
cat(toHTMLorLatex(hxy))
```

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