```{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 <- "\\mu"
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}
```

Ein Unternehmen stellt Spezialgefrierschränke her, die zur Konservierung
bestimmter Güter verwendet werden. Die Soll-Kühltemperatur beträgt für
derartige Gefrierschränke -25 Grad Celsius. Die Firma möchte mittels einem statistischen Test zeigen,
dass die mittlere Kühltemperatur `r if(althyp=="g") "grösser" else "kleiner"` als
die Solltemperatur ist.

```{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()`
