```{r, echo=FALSE}
library("exams")
include_supplement('ttest_hypothesen.schoice', recursive=TRUE)
library("exams.forge")
instruction <- NULL
mu0    <- 1000
sigma  <- 25
ttest  <- ttest_num(n           = sample((4:8)^2, size=1), 
                    mu0         = mu0,
                    mean        = sample(seq(950, 1050, by=10) , size=1),
                    alpha       = 0.01,
                    alternative = 'two.sided',
                    sd          = sample((sigma-10:sigma+10), size=1),
                    sigma       = sigma,   
                    norm        = TRUE)
why    <- "Der Molkereichef möchte zeigen, dass nicht korrekt abgefüllt wird, also $H_1: \\mu\\neq\\mu_0$."
```

Question
========

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



Ein Molkereichef hat den Verdacht, dass seine neue Abfüllanlage die 1 Liter Flaschen nicht korrekt abfüllt. 
Daher sollen Sie einen statistischen Test durchführen, um dem Verdacht nachzugehen. Er zieht eine Stichprobe vom `r ttest$n` Milchflaschen mit $\bar{x}=`r ttest$mean`$ und $s=`r ttest$sd`$ ml. Dabei sei ferner vorausgesetzt, dass die Grundgesamtheit normalverteilt ist mit einer Standardabweichung von `r ttest$sigma` ml.


```{r, child='ttest_hypothesen.schoice'}
```

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