ワールドシリーズ・オブ・ポーカーの連続入賞

Rで解く確率パズル

Peter Chi

Assistant Professor of Statistics Villanova University

ワールドシリーズ・オブ・ポーカー

  • 近年は約6,000人が参加
  • 上位10%に賞金（＝入賞）

 

プロポーカープレイヤー Ronnie Bardah:

  • 2010〜2014年に入賞
Rで解く確率パズル

単純化の仮定

  • 毎年6,000人の参加者
  • 毎年同じ参加者
  • 全員の実力は同一
Rで解く確率パズル

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
Rで解く確率パズル

入賞データを行列に保存

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
Rで解く確率パズル

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
Rで解く確率パズル

ワールドシリーズ・オブ・ポーカーを<br>シミュレーションしよう！

Rで解く確率パズル

Preparing Video For Download...