```{r, echo=FALSE}
library("exams")
include_supplement('ttest_pruefwert.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
mu0    <- sample(25:55, size=1)
ttest  <- ttest_num(n           = sample((6:10)^2, size=1), 
                    mu0         = mu0,
                    mean        = sample(setdiff(25:55, mu0), size=1),
                    alternative = 'two.sided',
                    sd          = sample(2:10, size=1),
                    alpha       = sample(c(0.1, 0.05, 0.01), size=1),
                    norm        = TRUE)
sc <- num_result(ttest$statistic, 3)
```

Question
========

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



Ein Manager eines Social-Media-Konzerns vermutet, dass sich die durchschnittliche Nutzerzeit (bisher `r ttest$mu0` Minuten/Tag) der User auf der Social-Media-Plattform verändert hat. Eine Stichprobe von `r ttest$n` Usern ergab eine mittlere Nutzerzeit von `r ttest$mean` Minuten/Tag sowie eine Varianz von `r ttest$sd^2`. Sie sollen einen statistischen Test auf dem Signifikanzniveau $\alpha=`r 100* ttest$alpha`$\% durchzuführen, um zu entscheiden, ob die Aussage stimmt. 

```{r, child='ttest_pruefwert.num'}
```

Meta-information
================
extype: num
exsolution: `r sc$fx[1]`
extol: `r sc$tolerance`
exname: `r knitr::current_input()`
