```{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(5:8, 1)
repeat{
  repeat{
    x   <- round(rchisq(n, 3), 1)/2
    if (min(x)>0) break
  }
  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 <- "%.1f"
hxy <- html_matrix_sk (m, fmt=c(fcb, fcb, "%.0f"), title="Zinssatz (Prozent)")
sc  <- num_result (median(h), digits = 2, tolmult = 2)
```

Question
========

```{r, error=TRUE, child=instruction}
```
In einer Bank haben Kunden die Möglichkeit, Tagesgeldkonten mit einem Betrag von 10.000 EUR zu eröffnen, wobei ein fester Zinssatz für einen Zeitraum von fünf Jahren gilt. Dieser Zinssatz kann sich im Verlauf der Zeit je nach Leitzinssatz der Europäischen Zentralbank ändern. Aus diesem Grund möchte ein Bankmanager den aktuellen Median-Zinssatz für die bestehenden Tagesgeldeinlagen seiner Kunden ermitteln, um die zukünftigen Kosten besser einschätzen zu können.

Die Abteilung für Finanzmanagement oder Risikomanagement der Bank liefert dem Bankmanager folgende Zahlen:

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

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


