```{r, echo=FALSE}
library("exams")
include_supplement('ttest_pruefwert.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
n      <- sample((3:7)^2, size=1)
x      <- rnorm(n)
mean   <- round(mean(x), 2)
sd     <- round(sd(x), 2)
mu0    <- 0
ttest  <- ttest_num(n           = n, 
                    mu0         = mu0,
                    mean        = mean,
                    alternative = 'two.sided',
                    sigma       = 1,
                    sd          = sd,
                    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 Taschenrechner verfügt über einen eingebauten Algorithmus zur Erzeugung einer Zufallszahl gemäß der Standardnormalverteilung. Für `r ttest$n` so erzeugte Zahlen ergibt sich ein Mittelwert von `r ttest$mean` und eine Standardabweichung von `r ttest$sd`. Prüfen Sie die Hypothese, dass der Mittelwert aller auf diese Weise erzeugten Zahlen 0 ist auf dem Signifikanzniveau von $`r 100*ttest$alpha`$%. Nehmen Sie an, dass die Zahlen einer Normalverteilung folgen.

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

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