フォン・ノイマン・モデル

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