```{r, echo=FALSE}
library("exams")
include_supplement('ttest_stichprobenfunktion.schoice', recursive=TRUE)
library("exams.forge")
instruction <- NULL
mu0    <- sample(seq(950, 1050, by=5), 1)
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 = sample(c('greater', 'less', 'two.sided'), 1),
                    sd          = sample((sigma-10:sigma+10), size=1),
                    sigma       = sigma,   
                    norm        = TRUE)
alttxt <- switch(ttest$alternative,
                 greater="sogar zu einem größeren zusätzlichen mittleren Schlachtgewicht führt",
                 less="zu einem geringeren zusätzlichen mittleren Schlachtgewicht führt",
                 two.sided="nicht zu dem angegebenen zusätzlichen mittleren Schlachtgewicht führt")
why    <- switch(ttest$alternative,
                 greater="Der Bauernverband möchte zeigen, dass das zusätzliche mittlere Schlachtgewicht größer ist als angegeben, also $H_1: \\mu>\\mu_0$.",
                 less="Der Bauernverband möchte zeigen, dass das zusätzliche mittlere Schlachtgewicht kleiner ist als angegeben, also $H_1: \\mu<\\mu_0$.",
                 two.sided="Der Einkäufer möchte zeigen, dass das zusätzliche mittlere Schlachtgewicht nicht stimmt, also $H_1: \\mu\\neq\\mu_0$.")

ssigma <- paste0("Die Standardabweichung in der Grundgesamtheit beträgt $\\sigma=", ttest$sigma, "$ g.")
ss     <- paste0("Die Standardabweichung in der Stichprobe beträgt $s=", ttest$sd, "$ g.")
```

Question
========

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



Ein Futtermittelhersteller verspricht, dass sein neues Futtermittel für Schweine bei gleichen Kosten zu einem zusätzlichen mittleren Schlachtgewicht von 
`r ttest$mu0`g führt. Im Auftrag des Bauernverbandes sollen Sie mit einem statistischen Test der Vermutung nachgehen, dass das Futtermittel `r alttxt`.

Sie ziehen eine Stichprobe von `r ttest$n` Schweinen und ermitteln das zusätzliche mittlere Schlachtgewicht mit $\bar{x}=`r ttest$mean`$ und $s=`r ttest$sd`$g. Dabei sei ferner vorausgesetzt, dass die Grundgesamtheit normalverteilt ist mit einer Standardabweichung von `r ttest$sigma`g.

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

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