```{r, echo=FALSE}
library("exams")
include_supplement('ptest_entscheidung.schoice', recursive=TRUE)
library("exams.forge")
instruction <- NULL
repeat {
  ptd <- proptest_data(size=5:25, norm.approx=FALSE, alternative='two.sided')
  ptest  <- proptest_num(x           = ptd$x,
                         n           = ptd$n,
                         pi0         = ptd$pi0,
                         alternative = ptd$alternative,
                         alpha       = ptd$alpha
  )
  if (!(as.integer(ptest$statistic) %in% as.integer(ptest$criticalx))) break # test statstic is not on border
}
#
h0  <- paste0("H_0:\\,\\pi", switch(ptest$alternative, "two.sided" = " = ",     "less" = " \\geq ", "greater"=" \\leq "), "\\pi_0")
h1  <- paste0("H_1:\\,\\pi", switch(ptest$alternative, "two.sided" = " \\neq ", "less" = " < ",     "greater"=" > "), "\\pi_0")
#
sc <- list(solutions=rep(FALSE, 9))
if (ptest$accept1) sc$solutions[8] <- TRUE else sc$solutions[2] <- TRUE
if (ptest$alternative=="two.sided") {
  cvt  <- sprintf("kritische Werte $c_u=%.0f$ und $c_o=%.0f$", ptest$criticalx[1], ptest$criticalx[2])
  ints <- sprintf("[%.0f; %.0f]", ptest$criticalx[1], ptest$criticalx[2])
} else {
  cvt <- sprintf("ein kritischer Wert von $c=%.0f$", ptest$criticalx)  
  if (ptest$alternative=="less") {
    ints <- sprintf("[%.0f; %.0f]", ptest$criticalx, ptest$n)
  } else {
    ints <- sprintf("[%.0f; %.0f]", 0, ptest$criticalx)    
  }
}
```

Question
========

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



Eine Süßwarenfirma verkauft blaue und grüne Gummibärchen. Bisher betrug der Anteil der blauen Gummibärchen $`r 100*ptest$pi0`$% an den verkauften Gummibärchen. Der neue Produktionschef ist sich nicht sicher, ob dieser Anteil noch in Ordnung ist.

Daher wurden `r ptest$n` Verkäufe zufällig ausgewählt, bei denen `r ptest$x` mal blaue Gummibärchen verkauft wurden.  Mittels eines Tests auf Anteilswert möchte er überprüfen, ob sich der Anteil der verkauften blauen Gummibärchen verändert hat (Signifikanzniveau `r 100*ptest$alpha`%).

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

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