```{r, echo=FALSE}
library("exams")
include_supplement('ptest_pruefwert.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL

ptd <- proptest_data(size=5:32,
                     prob=5*(1:9)/100,
                     alternative='two.sided',
                     norm.approx=FALSE)
ptest <- proptest_num(x=ptd$x,
                      n=ptd$n,
                      pi0=ptd$pi0,
                      alternative=ptd$alternative,
                      alpha=ptd$alpha)
day <- qnorm(0.5-ptest$pi0*c(1,-1), mean=280, sd=7)
```

Question
========

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



Aus Erfahrung weiß man, dass `r 100*ptest$pi0`\% der Frauen ihr Kind in der Zeit vom `r floor(day[1])`. bis `r ceiling(day[2])`. Schwangerschaftstag gebären. Ein Mediziner vermutet, dass sich dies geändert hat. Mit einem Test auf Anteilswert (Signifikanzniveau  `r 100*ptest$alpha`\%) möchte er dies überprüfen. Bei seiner Zufallsstichprobe lagen `r ptest$x` von `r ptest$n` Geburten im angegebenen Zeitintervall.

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

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