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

ptd <- proptest_data(size=5:32,
                     prob=5*(1:10)/100,
                     alternative='greater',
                     norm.approx=FALSE)
ptest <- proptest_num(x=ptd$x,
                      n=ptd$n,
                      pi0=ptd$pi0,
                      alternative=ptd$alternative,
                      alpha=ptd$alpha)
```

Question
========

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



Ein deutscher Autohersteller entwickelt eine neue Abschaltvorrichtung für die Abgasreinigung seiner Autos. 
Er will weiteres Geld in die Forschung  und Entwicklung stecken, wenn bei der derzeitigen Version 
bei Tests mindestens `r 100*ptest$pi0`% der Abschaltvorrichtungen nicht entdeckt werden.
In der Testgruppe werden bei `r ptest$x` Autos von `r ptest$n` die Abschaltvorrichtungen nicht entdeckt. Mit einem Test auf Anteilswert und einem Signifikanzniveau von `r 100*ptest$alpha`\% möchte der Hersteller 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()`
