Einführung in den Kurs
Wahrscheinlichkeitsrätsel in R
Peter Chi
Assistant Professor of Statistics
Kursüberblick
Kapitel 1: Die Klassiker
- Das Geburtstagsproblem
- Monty Hall
Kapitel 2: Spiele mit Würfeln
- Yahtzee
- Die Siedler von Catan
- Craps
Kapitel 3: Vom Web inspiriert
- iPhone-Passcode-Kombinationen
- Aufhebung von Vorzeichenfehlern
- Faktorisierung eines Quadrats
Kapitel 4: Pokerspiele
- Texas Hold'em Starthände
- Aufeinanderfolgende Cashes bei der WSOP
- von-Neumann-Pokermodell
Kombinatorik
factorial(n)factorial(3)$= 3! = 3 \times 2 \times 1$
factorial(3)
6
choose(n,k)choose(5,3)$ = {5 \choose 3} = \frac{5!}{3! \times (5-3)!} $
choose(5,3)
10
Simulationen
- Objekt zufällig auswählen –
sample() - Münzwurf simulieren –
rbinom() - Prozess wiederholen
replicate()- Schleifen:
for,while
- Seed setzen –
set.seed()
Mehr zu for-Schleifen
for(i in 1:10){
sum(sample(x = c(1,2,3,4,5,6), size = 2, replace = TRUE))
}
Ergebnisse speichern:
rolls <- rep(NA, 10) for(i in 1:10){ rolls[i] <- sum(sample(x = c(1,2,3,4,5,6), size = 2, replace = TRUE)) }rolls
3 6 3 9 9 3 6 11 9 10
Funktionen
my_function <- function(n){
answer <- n^3
return(answer)
}
my_function(10)
1000
Lass uns üben!
Wahrscheinlichkeitsrätsel in R
