```{r, echo=FALSE}
library("exams")
include_supplement('ptest_kritwert.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
repeat{
  pi0 <- sample(5*(1:10)/100, size=1)
  n   <- sample(5:32, size=1)
  if (n*pi0*(1-pi0)<5) break;
}
ptest  <- proptest_num(x           = sample(setdiff(0:(n-1), 1), size=1),
                       n           = n, 
                       pi0         = pi0,
                       alternative = 'greater',
                       alpha       = sample(c(0.01, 0.05, 0.1), size= 1)
                       )
```

Question
========

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

Die bisherige Berliner Regierungskoalition möchte nach der Wahl zum Berliner Abgeordnetenhaus ihre Koalition fortsetzen. Einer der Parteivorsitzenden möchte eine Aussage zur Fortsetzung der bisherigen Koalition nur machen,
wenn genügend Wähler seine Partei wählen (mindestens `r 100*ptest$pi0`%). In einer kleinen Wahlumfrage haben `r ptest$x` von `r ptest$n` Wahlberechtigten gesagt, dass sie seine Partei wählen würden. Mit einem Test auf Anteilswert und einem Signifikanzniveau von `r ptest$alpha` möchte er Gewissheit haben.

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

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