폰 노이만 모델

R로 풀어보는 확률 퍼즐

Peter Chi

Assistant Professor of Statistics Villanova University

균등 난수 변수

각 "패"는 Uniform(0,1) 분포에서 추출됩니다.

runif(n, min = 0, max = 1)

runif(n = 1)

0.5888486

playerA <- runif(n = 1)
playerB <- runif(n = 1)
playerA > playerB

TRUE

 

 

playerA

0.6575921

playerB

0.3587836
R로 풀어보는 확률 퍼즐

폰 노이만 모델에서의 베팅

플레이어 B는 값을 보고 $1 베팅 여부를 결정합니다.

  • 베팅 시: 값을 비교하고, 더 큰 값이 상대에게서 $1을 얻습니다.
  • 베팅하지 않으면: 둘 다 손익이 없습니다.
R로 풀어보는 확률 퍼즐

ifelse 함수

# 조건이 참인 경우
x <- 4
result <- ifelse(x > 0, sqrt(x), sqrt(-x))
result

2

# 조건이 거짓인 경우
x <- (-4)
result <- ifelse(x > 0, sqrt(x), sqrt(-x))
result

2
R로 풀어보는 확률 퍼즐

mean 함수 다시 보기

values <- replicate(10, roll_dice(3))
values

5 10 14  5 12 12  4 15  7  9

 

mean(values)

9.3
R로 풀어보는 확률 퍼즐

이제 직접 해보세요!

R로 풀어보는 확률 퍼즐

Preparing Video For Download...