Giới thiệu khóa học
Câu đố Xác suất với R
Peter Chi
Assistant Professor of Statistics
Tổng quan khóa học
Chương 1: Kinh điển
- Bài toán sinh nhật
- Monty Hall
Chương 2: Trò chơi với xúc xắc
- Yahtzee
- Settlers of Catan
- Craps
Chương 3: Cảm hứng từ Web
- Tổ hợp mã Passcode iPhone
- Khử sai số dấu
- Phân tích đa thức bậc hai
Chương 4: Trò chơi Poker
- Bài tẩy đầu ở Texas Hold'em
- Vào tiền liên tiếp tại WSOP
- Mô hình Poker của von Neumann
Tổ hợp
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
Mô phỏng
- Chọn ngẫu nhiên một đối tượng -
sample() - Mô phỏng tung đồng xu -
rbinom() - Lặp lại một quy trình
replicate()- Vòng lặp:
for,while
- Đặt seed -
set.seed()
Chi tiết thêm về vòng lặp for
for(i in 1:10){
sum(sample(x = c(1,2,3,4,5,6), size = 2, replace = TRUE))
}
Lưu kết quả:
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
Hàm
my_function <- function(n){
answer <- n^3
return(answer)
}
my_function(10)
1000
Cùng luyện tập nào!
Câu đố Xác suất với R
