Pengantar Kursus
Teka-teki Probabilitas di R
Peter Chi
Assistant Professor of Statistics
Gambaran kursus
Bab 1: Klasik
- Masalah Ulang Tahun
- Monty Hall
Bab 2: Permainan dengan Dadu
- Yahtzee
- Settlers of Catan
- Craps
Bab 3: Terinspirasi dari Web
- Kombinasi Kode Sandi iPhone
- Pembatalan Kesalahan Tanda
- Memfaktorkan Kuadrat
Bab 4: Permainan Poker
- Kartu Awal Texas Hold'em
- Kas Beruntun di WSOP
- Model Poker von Neumann
Kombinatorika
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
Simulasi
- Pilih objek secara acak -
sample() - Simulasi lempar koin -
rbinom() - Ulangi proses
replicate()- Loop:
for,while
- Tetapkan seed -
set.seed()
Detail lebih lanjut tentang for loop
for(i in 1:10){
sum(sample(x = c(1,2,3,4,5,6), size = 2, replace = TRUE))
}
Menyimpan hasil:
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
Fungsi
my_function <- function(n){
answer <- n^3
return(answer)
}
my_function(10)
1000
Ayo berlatih!
Teka-teki Probabilitas di R
