<!--- Filename should be: topic_story_anwserformat.Rmd --->

```{r,  echo = FALSE, results = "hide"}
library("exams")
include_supplement('buergerrat.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
library("extraDistr")
border  <- c(NA, NA)
repeat{
  m    <- sample(2:10, 1) # Zahl Mädchen Geburtstag
  n    <- sample(2:10, 1) # Zahl Jungen Geburtstag
  mj   <- sample(1:(m-1), 1) # Zahl Mädchen Schnitzeljagd
  nj   <- sample(1:(n-1), 1) # Zahl Jungen Schnitzeljagd
  k    <- mj+nj
  if ((k/(n+m)>0.05) && (k*n/(n+m)*m/(m+n)<9)) break
}
ptype   <- "expectation"
d       <- distribution(name="hyper", m=m, n=n, k=k)
male    <- FALSE
lsg     <- k*m/(n+m)
sc      <- num_result(lsg, 3)
```

Question
========

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

Für die Mitarbeit in einem Bürgerrat zur Klimakrise haben sich `r m+n` Bürger gemeldet. Davon haben `r m` bereits Erfahrungen mit Bürgerräten gesammelt. Für den Bürgerrat wird eine Gruppe aus `r k`
Personen per Los bestimmt. Wie viele erfahrene Bürger erwarten Sie im Mittel in dem Bürgerrat?

```{r, child='buergerrat.num'}
```

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