```{r, echo=FALSE}
library("exams")
include_supplement('ptest_stichprobenfunktion.schoice', recursive=TRUE)
library("exams.forge")
instruction <- NULL
pi0 <- sample(5*(1:8)/100, size=1)
n   <- sample(50:100, size=1)
ptest  <- proptest_num(x           = sample(setdiff(0:n, 1), size=1),
                       n           = n, 
                       pi0         = pi0,
                       alternative = 'greater',
                       alpha       = sample(c(0.01, 0.05, 0.1), size= 1)
                       )
N   <- sample(seq(500, 1000, by=100), size=1)
why <- "Der  Generalsekretär möchte beweisen, dass $\\pi > \\pi_0$ ist."
```

Question
========

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

Partei A will herausfinden, wie bei der Kommunalwahl (`r N` Wahlberechtigte) ihre Chancen zur Überwindung der `r 100*ptest$pi0`%-Marke stehen. Von `r ptest$n` Befragten haben `r ptest$x` Befragte gesagt, dass sie Partei A wählen würden (Ziehen mit Zurücklegen). Der Generalsekretär möchte dies mit einem geeigneten Test überprüfen (Signifikanzniveau: `r 100*ptest$alpha`%).

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

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