월드 시리즈 오브 포커의 연속 캐시

R로 풀어보는 확률 퍼즐

Peter Chi

Assistant Professor of Statistics Villanova University

월드 시리즈 오브 포커

  • 최근 연도 기준 참가자 약 6000명
  • 상위 10%에 상금 지급 — 캐시

 

프로 포커 선수 Ronnie Bardah:

  • 2010, 2011, 2012, 2013, 2014년에 캐시
R로 풀어보는 확률 퍼즐

단순화 가정

  • 매년 6000명의 플레이어
  • 매년 같은 플레이어들
  • 모든 플레이어의 실력 동일
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...