馮·諾伊曼模型

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...