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

Question
========

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



Ein Datingservice vermutet, dass sich Paare an unterschiedlichen Wochentagen mit unterschiedlicher Wahrscheinlichkeit verlieben. Für jeden Wochentag hat ein Statistiker eine Wahrscheinlichkeit bestimmt, für Freitag z.B. `r 100*pi0`%. Um seine Hypothese zu überprüfen, dass genau `r 100*pi0`% der Paare sich an einem Freitag verlieben, zieht er eine Zufallsstichprobe aus den gekündigten Verträgen des Datingservices. Demnach haben sich `r ptest$x` von `r ptest$n` Paaren an einem Freitag verliebt. Mit einem Test auf Anteilswert und einem Signifikanzniveau von `r 100*ptest$alpha`% möchte er seine Hypothese überprüfen.


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

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