```{r data generation, echo = FALSE, results = "hide"}
library("exams")
library("exams.forge")
instruction <- NULL
include_supplement("t2test_pruefwert.num", recursive=TRUE)
### DATA GENERATION
n     <- sample(10:20, 2)
x_1   <- rnorm(n[1], 164, 5)
x_2   <- rnorm(n[2], 152, 5)
m_1   <- round(mean(x_1))
s_1   <- round(sd(x_1))
m_2   <- round(mean(x_2))
s_2   <- round(sd(x_2))
ptype <- "hetero"
sc    <- num_result(abs(m_1- m_2)/sqrt(s_1^2/n[1]+s_2^2/n[2]), 3)
```

Question
========

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

Ein Archäologe möchte prüfen, ob die Körpergröße von Männern und Frauen in der Steinzeit unterschiedlich war. Deswegen vermisst er eine Zufallsstichprobe von Skeletten und erhält folgende Daten:

* bei den `r n[1]` männlichen Skeletten ergab sich ein Mittelwert von `r m_1` cm sowie eine Standardabweichung von `r s_1` cm und
* bei den `r n[2]` weiblichen Skeletten ergab sich ein Mittelwert von `r m_2` cm sowie eine Standardabweichung von `r s_2` cm.

Gehen Sie davon aus, dass die Körpergrößen von Männern und Frauen normalverteilt ist.

Wählen Sie einen geeigneten Test um seine Hypothese zu überprüfen, und berechnen Sie den Betrag des Prüfwertes. 

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

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