```{r, echo=FALSE}
library("exams")
include_supplement('ptest_pruefwert.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}
```



Ein Impfstoffhersteller entwickelt einen neuen Impfstoff gegen ein neuartiges Virus. Er will weiteres Geld in die Forschung 
und Entwicklung stecken, wenn bei der derzeitigen Version mindestens `r 100*ptest$pi0`% der Geimpften immun gegen das Virus sind. In einer Testgruppe stellen sich `r ptest$x` von `r ptest$n` Geimpften als immun heraus. Mit einem Test auf Anteilswert und einem Signifikanzniveau von `r ptest$alpha` möchte er Gewissheit haben.


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

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