```{r, echo=FALSE}
library("exams")
include_supplement('ttest_entscheidung.schoice', recursive=TRUE)
library("exams.forge")
instruction <- NULL
mu0    <- sample(seq(1200, 1400, by=10), size=1)
ttest  <- ttest_num(n           = sample((6:10)^2, size=1), 
                    mu0         = mu0,
                    mean        = sample(setdiff(seq(1200, 1400, by=10), mu0), size=1),
                    alternative = 'two.sided',
                    alpha       = sample(c(0.1, 0.05, 0.01), size=1),
                    sd          = sample(seq(5, 25, by=1), size=1)
)
```

Question
========

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



Ein Politiker behauptet, dass das Einkommen seiner Wähler `r ttest$mu0` EUR beträgt. Sowohl die Arbeitgeber, der sagt es ist zu niedrig, als auch die Gewerkschaft, die sagt es zu hoch, bestreiten dies. Daher wird ein Statistiker beauftragt, dies mittels einem statistischen Test mit einem Signifikanzniveau $\alpha=`r ttest$alpha`$ zu prüfen. Er führte eine Befragung bei `r ttest$n` Wählern durch und erhielt einen durchschnittliches Einkommen `r ttest$mean` EUR bei einer Standardabweichung von
`r ttest$sd` EUR. 

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

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