```{r, echo=FALSE}
library("exams")
include_supplement('ttest_pruefwert.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
mu0 <- sample(5:15, size=1)
ttest  <- ttest_num(n           = sample((6:10)^2, size=1), 
                    mu0         = mu0,
                    mean        = sample(setdiff(5:15, mu0), size=1),
                    alternative = 'greater', 
                    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 Aktienhändler behauptet, dass er bei den von Ihm ausgewählten Aktien mindestens eine mittlere Rendite von `r ttest$mu0` EUR hat. 
Ein Anleger glaubt dem Aktienhändler nicht und hat Sie beauftragt, einen statistischen Test auf dem Signifikanzniveau $\alpha=`r 100* ttest$alpha`$\% durchzuführen, um zu entscheiden, ob die Aussage stimmt. 

Bei einer Stichprobe mit `r ttest$n` Aktien ergab sich eine mittlere Rendite von `r ttest$mean` EUR sowie eine Varianz von 
`r ttest$sd^2` EUR$^2$. 

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

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