```{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 Supermarkt hat bisher Hähnchen mit einem Durchschnittsgewicht von 1400g zu einem bestimmten Preis bezogen.
Ein Händler macht nun das Angebot, Hähnchen von gleichem Durchschnittsgewicht zu einem günstigeren Stückpreis
liefern zu können. Die beiden Einkäufer des Supermarkts, die beide wissen, dass das Hähnchengewicht normalverteilt ist, vermuten,
dass der günstige Preis durch ein zu geringes Durchschnittsgewicht zustande kommt. Der Händler und die Einkäufer beschließen mittels einem statischen Test zu zeigen, dass das mittlere Hähnchengewicht `r if(althyp=="g") "grösser" else "kleiner"` als
1400g  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()`
