Chuỗi Vô địch Poker Thế giới: Vào tiền liên tiếp

Câu đố Xác suất với R

Peter Chi

Assistant Professor of Statistics Villanova University

Chuỗi Vô địch Poker Thế giới

  • ~ 6000 người tham dự gần đây
  • Trao thưởng cho top 10% — “cashing”

 

Vận động viên poker Ronnie Bardah:

  • Vào tiền các năm 2010, 2011, 2012, 2013, 2014
Câu đố Xác suất với R

Giả định đơn giản hóa

  • 6000 người chơi mỗi năm
  • Cùng một nhóm người chơi mỗi năm
  • Tất cả có kỹ năng như nhau
Câu đố Xác suất với R

Hàm intersection

players <- c(1:20)

cash_year1 <- sample(players, 4)
cash_year1

20  4 11 14

cash_year2 <- sample(players, 4)
cash_year2

18  7 19  4

intersect(cash_year1, cash_year2)

4
Câu đố Xác suất với R

Lưu các lần vào tiền dưới dạng ma trận

players <- c(1:20)

cashes <- replicate(3, sample(players, 4))
cashes

      [,1] [,2] [,3]
 [1,]    4    5    1
 [2,]   11   19    6
 [3,]   18   16    9
 [4,]   12   14   17
Câu đố Xác suất với R

Hàm Reduce

cashes <- replicate(3, sample(players, 4))
cashes

      [,1] [,2] [,3]
 [1,]    4    5    1
 [2,]   11   19    6
 [3,]   18   16    9
 [4,]   12   14   17

in_all_three <- Reduce(intersect, list(
    cashes[, 1], cashes[, 2], cashes[, 3]))

in_all_three

integer(0)

length(in_all_three)

0
Câu đố Xác suất với R

Hãy mô phỏng<br> Chuỗi Vô địch Poker Thế giới!

Câu đố Xác suất với R

Preparing Video For Download...