```{r, echo=FALSE}
library('exams')
library('exams.forge')
instruction <- NULL
include_supplement('hypothesis_general.schoice', recursive=TRUE)
althyp <- sample(c("g", "l"), size=1)
symbol <<- "\\pi"
h0     <- c("=", "\\neq", "\\leq", "<", "\\geq", ">", "<", ">")
h1     <- c("\\neq", "=", ">", "\\geq", "<", "\\leq", ">", "<")
hyp    <- paste0('$H_0:\\, ', symbol, h0, symbol, "_0$ vs. $H_1:\\,", symbol, h1, symbol, "_0$")
tf     <- rep(FALSE, length(hyp))
if (althyp=="g") tf[(h0=='\\leq') & (h1=='>')] <- TRUE
if (althyp=="l") tf[(h0=='\\geq') & (h1=='<')] <- TRUE
sc <- to_choice(hyp, tf)
sc$questions <- c(sc$questions, "Keines der Hypothesenpaare ist richtig") # Additional answer
sc$solutions <- c(sc$solutions, FALSE)                         # TRUE or FALSE?
```

Question
=======

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

Einer im Berlin–Verkehr tätigen ausländischen Fluggesellschaft wird gelegentlich schlampiges Gepäck-Handling vorgeworfen. Gewöhnlich verteidigt sich der Deutschlanddirektor der Fluggesellschaft gegenüber Journalisten mit dem Hinweis, dass es sich bei diesen Vorkommnissen um seltene Ereignisse handelt. Um sicher zu gehen möchte er mittels einem statistischen Test zeigen, dass  ein `r if(althyp=="g") "größerer" else "kleinerer"` Anteil als 1% der Gepäckstücke beschädigt wird.

```{r, child="hypothesis_general.schoice"}
```

Meta-information
================
extype: schoice
exsolution: `r mchoice2string(sc$solutions, single = TRUE)`
exname: `r if(exists("story")) story else knitr::current_input()`
