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

```{r,  echo = FALSE, results = "hide"}
include_supplement('geburtstag.num', recursive=TRUE)
library("exams")
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) # Zahl Mädchen Schnitzeljagd
  nj   <- sample(1:n, 1) # Zahl Jungen Schnitzeljagd
  k    <- mj+nj
  border <- 0
  kn     <- k
  d      <- distribution(name="hyper", m=m, n=n, k=k)
  lsg    <- pmdf(d, kn)
  if ((k/(n+m)>0.05) && (k*n/(n+m)*m/(m+n)<9) && (lsg>1e-3)) break
}
ptype <- "point"
male  <- TRUE
sc      <- num_result(lsg, 4)
```

Question
=======

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

<!--- Exercise text is in story file --->

An einem Kindergeburtstag nehmen `r m` Mädchen und `r n` Jungen teil. Für die Schnitzeljagd wird eine Gruppe aus `r k`
Kindern per Los bestimmt. Mit welcher Wahrscheinlichkeit befinden sich kein Junge in der Gruppe?

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

Meta-information
================
extype: num
exsolution: `r round2(lsg,4)`
extol: 0.001
exname: `r if(exists("story")) story else knitr::current_input()`
