冯·诺依曼模型

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