```{r data generation, echo = FALSE, results = "hide"}
library("exams")
library("exams.forge")
instruction <- NULL
cream <- sample(seq(50,250,50),1)
a <- cream-0.02*cream
b <- cream+0.08*cream
X <- sample(seq(a,b,1),5)
#part a
mu <- mean(X)
sc <- num_result(mu, 2)
```

Question
========

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

Eine Abfüllmaschine füllt Kaffeesahne zu je  `r cream` g ab. Es kann angenommen werden, dass das Füllgewicht normalverteilt ist. Eine Stichprobe vom Umfang $n=5$  liefert folgende Werte (in g): 

`r as_obs(X)`.

Berechnen Sie die Schätzwerte für den unbekannten Mittelwert $\mu$. `r round_de(sc$digits)`.

Solution
========

$$\hat{\mu}=\overline{X}=\frac{1}{n} \cdot \sum {X_i} = `r lmean(X)` =  `r mu`$$

Meta-information
================
extype: num
exsolution: `r sc$fx[1]`
extol: `r sc$tolerance`
exname: st_ki_10_2a.Rmd
