```{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 = 'less',
                       alpha       = sample(c(0.01, 0.05, 0.1), size= 1)
                       )
```

Question
========

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



In einer Studie zu einem neuartigen Nagellack gegen Nagelpilz bekommen `r 100*ptest$pi`\% der Probanden ein Placebo statt des neuen Nagellacks. Nur wenn der Anteil der Probanden, die keine Verbesserung bei ihrem Nagelpilzproblem spüren, kleiner ist als der Placeboprobandenanteil, will die Firma den Nagellack weiter entwickeln. Mittels eines Tests auf Anteilswert bei einem Signifikanzniveau von `r 100*ptest$alpha`% möchte die Firma ihre Hypothese überprüfen.

In der Zufallsstichprobe von `r ptest$n` Probanden verspürten  `r ptest$x` keine Verbesserung ihres Nagelpilzproblems.

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

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