---
output:
  pdf_document: default
  html_document: default
---
```{r, echo=FALSE}
library("exams")
include_supplement('ttest_stichprobenfunktion.schoice', recursive=TRUE)
library("exams.forge")
instruction <- NULL
mu0    <- sample(seq(4:10), size=1)
sigma  <- 25
ttest  <- ttest_num(n           = sample((4:8)^2, size=1), 
                    mu0         = mu0,
                    mean        = sample(setdiff(seq(2, mu0+1, by=0.5), mu0), size=1),
                    alpha       = 0.01,
                    alternative = 'less',
                    sd          = sample((sigma-10:sigma+10), size=1),
                    sigma       = sigma,   
                    norm        = TRUE)
why    <- "Der Fachmann möchte zeigen, dass die andere Bearbeitungarbeit schneller ist, also $H_1: \\mu<\\mu_0$."
```

Question
========

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



Ein Arbeiter braucht für die Bearbeitung eines Werkstücks im Durchschnitt `r ttest$mu0` Minuten. Ein Fachmann schlägt, um eine Zeitersparnis zu erreichen, eine andere Bearbeitungsart vor und will die Effektivität seines Vorschlags mithilfe eine statistischen Tests mit einem Signifikanzniveau `r ttest$alpha` prüfen. Er zieht eine Stichprobe vom Umfang `r ttest$n` mit $\bar{x}=`r ttest$mean`$ und $s=`r ttest$sd`$ Minuten. Dabei sei ferner vorausgesetzt, dass die Grundgesamtheit normalverteilt ist mit einer Standardabweichung von `r ttest$sigma` Minuten.

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

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