```{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}
```

Seit geraumer Zeit beklagen Umweltschützer die Verschmutzung der Seen durch die Abwässer der Haushalte – insbesondere durch den Phosphatgehalt der Waschmittel. So greifen sie auch eine bestimmte Firma an, da sie glauben,
dass der zulässige Durchschnittswert von höchstens 18g pro Packung in deren Produkt überschritten wird.
Die Firma bestreitet dies energisch und verspricht den Umweltschützern, entsprechende Maßnahmen zu ergreifen, falls sich mit
einem Test statistisch zeigen läßt, dass der mittlere Phosphatgehalt  `r if(althyp=="g") "grösser" else "kleiner"` als
der zulässige Phosphatgehalt 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()`
