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

In einem bekannten Wintersportort wird alljährlich ein großes Skirennen für Gäste veranstaltet, bei dem alle Gäste teilnehmen können. Diesmal soll der Slalom an einem erst kürzlich erschlossenen Hang stattfinden. Eine Gruppe von Skilehrern bekommt den Auftrag, einen Slalom abzustecken, der für alle Gäste befahrbar ist. Es ist beabsichtigt, dass im Mittel mehr als 90% der Gäste heil durchs Ziel kommen sollen.
Der Tourismusmanager des Wintersportortes ist sich unsicher und möchte mittels eines statistischen Tests beweisen, dass  `r if(althyp=="g") "mehr" else "weniger"` als 90% Gäste heil in das Ziel kommen.

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