강의 소개

R로 풀어보는 확률 퍼즐

Peter Chi

Assistant Professor of Statistics

강의 개요

  • Chapter 1: 고전 문제

    • 생일 문제
    • 몬티 홀

  • Chapter 2: 주사위 게임

    • Yahtzee
    • Settlers of Catan
    • Craps

  • Chapter 3: 웹에서 영감을 얻은 문제

    • iPhone 비밀번호 조합
    • 부호 오류 상쇄
    • 이차방정식 인수분해

  • Chapter 4: 포커 게임

    • Texas Hold'em 홀 카드
    • WSOP 연속 입상
    • 폰 노이만 포커 모델
R로 풀어보는 확률 퍼즐

조합론

  • 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
R로 풀어보는 확률 퍼즐

시뮬레이션

  • 무작위 객체 선택 - sample()
  • 동전 던지기 시뮬레이션 - rbinom()
  • 과정 반복
    • replicate()
    • 루프: for, while
  • 시드 설정 - set.seed()
R로 풀어보는 확률 퍼즐

for 루프 심화

for(i in 1:10){
  sum(sample(x = c(1,2,3,4,5,6), size = 2, replace = TRUE))
}

결과 저장:

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
R로 풀어보는 확률 퍼즐

함수

my_function <- function(n){
  answer <- n^3
  return(answer)
}

 

my_function(10)

1000
R로 풀어보는 확률 퍼즐

연습해 봅시다!

R로 풀어보는 확률 퍼즐

Preparing Video For Download...