```{r, echo=FALSE}
library("exams")
include_supplement('ttest_entscheidung.schoice', recursive=TRUE)
library("exams.forge")
instruction <- NULL
mu0    <- sample(seq(800, 1200, by=10), size=1)
ttest  <- ttest_num(n           = sample((6:10)^2, size=1), 
                    mu0         = mu0,
                    mean        = sample(setdiff(seq(800, 1200, by=10), mu0), size=1),
                    alternative = 'less',
                    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 mit der Erhöhung der Tabaksteuer zum Jahreswechsel sich die Zahl der gerauchten Zigaretten weiter vermindert hat. Daher wird ein Statistiker beauftragt, dies mittels eines statistischen Tests mit einem Signifikanzniveau $\alpha=`r 100*ttest$alpha`$\%  zu prüfen. Er führte eine Befragung bei `r ttest$n` Rauchern durch und er erhielt eine Zahl von `r ttest$mean` durchschnittlich gerauchten Zigaretten pro Jahr bei einer Standardabweichung von `r ttest$sd` Stück. Die Zahl der gerauchten Zigaretten lag vor der Steuererhöhung bei `r ttest$mu0` pro Jahr.

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

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