```{r, echo=FALSE}
include_supplement("amittel_klassiert.num", recursive=TRUE)
# required variables:
#  sc <- num_result(...)
library("exams.forge")
instruction <- NULL
library("knitr")
n <- sample(25:100, 1)
k <- sample(3:6, 1)
repeat{
    x      <- round(rnorm(n, mean=1.8, sd=0.1), 2)
    breaks <- breaks(x, probs=k)
    h      <- histdata(x, breaks)
    if (length(which(h$density==max(h$density)))==1) 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"
fcb1 <- "%.3f"
hxy  <- html_matrix_sk(m, title="Klasse", fmt=c(fcb, fcb, "%.0f"))
sc   <- num_result (mean(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="amittel_klassiert.num"}
```

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