```{r data generation, echo = FALSE, results = "hide"}
library("exams")
library("exams.forge")
instruction <- NULL

library("exams")
library("exams.forge")
instruction <- NULL
klassen_X <- c("1,0 - 1,7", "2,0 - 2,7", "3,0 - 4,0", "5,0")
klassen_Y <- c("gut", "schlecht")
repeat{
  target <- sample(seq(-0.75, 0.75, by=0.05), 1)
#  n      <- sample_size_freq(seq(10, 200, 10), tab)
#  tab    <- n*ddiscrete2(ddiscrete(runif(length(klassen_Y))), ddiscrete(runif(length(klassen_X))), unit=100, target=target)
  tab    <- ddiscrete2(ddiscrete(runif(length(klassen_Y))), ddiscrete(runif(length(klassen_X))), unit=100, target=target)
  n      <- sample_size_freq(seq(10, 200, 10), tab)
  tab    <- n*tab
  margin <- marginSums(tab, 1)
  if (unique_max(margin)) break
}
colnames(tab) <- klassen_X
rownames(tab) <- klassen_Y
n      <- sample(floor((1:10)/min(tab)), 1)
htab   <- html_matrix_sk(tab, "Laune / Note", fmt=rep("%.0f", length(klassen_X)))
maxIdx <- klassen_Y[which.max(margin)]
tmargin <- matrix(margin, ncol=1)
colnames(tmargin) <- "Hfk"
rownames(tmargin) <- klassen_Y
hmargin <- html_matrix_sk(tmargin, "", fmt="%.0f")
```

Question
========

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

Vor einer Klausur hat eine Studentin alle Klausurteilnehmer nach deren Laune gefragt (Variable $X_1$). Nach der Veröffentlichung der Ergebnisse hat sie dieselben Studenten nach ihrer Note gefragt (Variable $X_2$). Es ergab sich die folgende Häufigkeitstabelle:

```{r xtable1, echo = FALSE, results = "asis"}
cat(toHTMLorLatex(htab))
```

Bestimmen Sie einen geeigneten Lageparameter für die Variable $X_1$ ``Laune''. 

Solution
========

Geeigneter Lageparameter für nominalskalierte Variablen ist der Modus "`r maxIdx`".

```{r xtable2, echo = FALSE, results = "asis"}
cat(toHTMLorLatex(hmargin))
```

Meta-information
================
extype: string
exsolution: `r maxIdx`
exname: US-Modus-3.Rmd
