```{r, echo=FALSE}
library("exams")
include_supplement('ptest_stichprobenfunktion.schoice', recursive=TRUE)
library("exams.forge")
instruction <- NULL
ptd <- proptest_data(size=50:100,
                     prob=5*(2:9)/100,
                     alternative='greater')
ptest <- proptest_num(x=ptd$x,
                      n=ptd$n,
                      pi0=ptd$pi0,
                      alternative=ptd$alternative,
                      alpha=ptd$alpha)
#                      
#
#pi0 <- sample(5*(2:9)/100, size=1)
#ps  <- 5*(1:10)/100
#p   <- sample(ps, size=1, prob=ps>pi0)
#n   <- sample(50:100, size=1)
#xs  <- setdiff(floor(pi0*n):ceiling(n/2), 1) 
#ptest  <- proptest_num(x           = sample(xs, 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 Freund möchte beweisen, dass $\\pi > \\pi_0$ ist."
```

Question
========

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

Ein Internetprovider plant eine spezielle Werbekampagne in Regionen mit einer unterdurchschnittlichen Internetnutzung. Kriterium soll ein Anteil von höchstens `r 100*ptest$pi0`% Haushalten mit Netzzugang sein. Zur Auswahl passender Regionen führt er jeweils einfache Zufallsstichproben unter den Haushalten der Region durch. In einer Testregion hatten `r ptest$x` von `r ptest$n` Haushalten einen Internetzugang. Dem Test soll ein Signifikanzniveau von `r 100*ptest$alpha`% zugrunde gelegt werden.

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

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