<!--- Filename should be: topic_story_anwserformat.Rmd --->

```{r data generation, echo = FALSE, results = "hide"}
library("exams")
library("exams.forge")
instruction <- NULL
call <- exams2call()
### DATA GENERATION
col  <- unique(gsub('[0-9]*', '', colors()))
col1 <- sample(col, size=sample(3:7, 1)) 
col2 <- sample(col, size=sample(3:7, 1)) 
lsg  <- (length(col1)-1)*(length(col2)-1)
```

Question
========

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

Ein Buchverlag gestaltet für alle seine Bücher die Vorder- und Rückseite mit unterschiedlichen Farben. Für die Vorderseite werden die Farben 
`r as_string(col1, last=" und ")` verwendet, für die Rückseiten die Farben 
`r as_string(col2, last=" und ")`. Mittels einem statistischen Tests wollen Sie prüfen, ob die Farbwahl für die Vorderseite und die Rückseite unabhängig voneinander sind. 
Geben Sie die Freiheitsgrade der Teststatistik $V$ an.

Solution
=========
Unter der Nullhypothese, dass die Variablen unabhängig sind, ist die Teststatistik $V$ Chi-Quadrat verteilt.

Die Zahl der Freiheitsgrade ergibt sich als (Zahl der Zeilen-1)$\times$(Zahl der Spalten-1), also `r lsg`.

<!--- Put here the solution text --->

Meta-information
================
extype: num
exsolution: `r round2(lsg)`
extol: 0.5
exname: `r if(exists("story")) story else knitr::current_input()`
