```{r, echo=FALSE}
library("exams")
include_supplement('ttest_entscheidung.schoice', recursive=TRUE)
library("exams.forge")
instruction <- NULL
mu0    <- sample(90:110, size=1)
ttest  <- ttest_num(n           = sample((4:10)^2, size=1), 
                    mu0         = mu0,
                    mean        = sample(setdiff(85:115, mu0), size=1),
                    alternative = 'two.sided',
                    sigma       =  15,
                    sd          = sample(setdiff(10:20, 15), size=1),
                    norm        = TRUE)
```

Question
========

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



Bei Versuchsmäusen ist bekannt, dass ihr Gewicht normalverteilt sein sollte mit einer Varianz von $\sigma^2=`r ttest$sigma^2`$ g$^2$. Es wurden `r ttest$n` Versuchsmäuse gewogen, bei denen sich ein Mittelwert von `r ttest$mean` g und eine Varianz von `r ttest$sd^2`  g$^2$ ergab. Es soll gezeigt werden, dass das mittlere Gewicht nicht den Vorschriften entspricht (=`r ttest$mu0` g) bei einem Signifikanzniveau von $\alpha=`r 100*ttest$alpha`$\%.

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

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