# Aufgabe 4
totalRuns      <- 100
correctGuesses <- 0

for(i in 1:totalRuns) {
  # Simulation der Torschüsse
  anzahlTreffer <- rbinom(1, 190, 0.24)

  # Berechnung des p-Werts
  pWert <-
    binom.test(anzahlTreffer, 190, p = 0.24, conf.level = 0.95)$p.value

  # Wir akzeptieren die Nullhypothese, wenn der pWert mindestens
  # 0.05 ist.
    if(pWert >= 0.05) { correctGuesses <- correctGuesses + 1; }
}

# Die Ausgabe der nächsten Zeile schwankt, wie erwartet,
# um 0.95: In 95 % der Fälle liefert unser Test das richtige
# Ergebnis, in den restlichen 5 % gelangen wir zum falschen Schluss.
correctGuesses/totalRuns