Mô hình von Neumann

Câu đố Xác suất với R

Peter Chi

Assistant Professor of Statistics Villanova University

Biến ngẫu nhiên đều

Mỗi “lá bài” rút từ phân phối 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
Câu đố Xác suất với R

Cược theo mô hình von Neumann

Người chơi B quan sát giá trị, quyết định có cược $1 hay không

  • Nếu cược: hai người so sánh giá trị. Giá trị cao hơn thắng $1 từ người kia
  • Nếu không cược: không ai được hay mất tiền
Câu đố Xác suất với R

Hàm ifelse

# Điều kiện đúng
x <- 4
result <- ifelse(x > 0, sqrt(x), sqrt(-x))
result

2

# Điều kiện sai
x <- (-4)
result <- ifelse(x > 0, sqrt(x), sqrt(-x))
result

2
Câu đố Xác suất với R

Hàm mean, ôn lại

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

5 10 14  5 12 12  4 15  7  9

 

mean(values)

9.3
Câu đố Xác suất với R

Đến lượt bạn!

Câu đố Xác suất với R

Preparing Video For Download...