WiWi Gast schrieb am 27.12.2022:
“Wie wahrscheinlich ist es, dass man ein Ergebnis erhält, dass mind. 15 Treffer entfernt ist von der Trefferzahl, die bei einer fairen Münze zu erwarten ist?”
Wie kann man diese Aufgabe in RStudio lösen?
Um diese Aufgabe in RStudio zu lösen, zunächst Simulation durchführen, um Ergebnisse von Würfen mit einer fairen Münze zu generieren. Dann Treffer berechnen, die bei jeder Simulation erzielt wurden, und prüfen, ob diese mind. 15 Treffer von erwarteter Trefferzahl entfernt. Häufigkeit der Ereignisse berechnen = Wahrscheinlichkeit, dass bei einer Simulation ein Ergebnis erzielt wird, welches mindestens 15 Treffer von der erwarteten Trefferzahl entfernt ist.
Beispiel, für RStudio:
n_simulations <- 1000
expected_hits <- 50
min_hits <- expected_hits - 15
counter <- 0
for (i in 1:n_simulations) {
results <- sample(1:2, size = 100, replace = TRUE)
hits <- sum(results == 1)
if (hits < min_hits || hits > expected_hits + 15) {
counter <- counter + 1
}
}
probability <- counter / n_simulations
print(probability)
antworten