Model von Neumann

Teka-teki Probabilitas di R

Peter Chi

Assistant Professor of Statistics Villanova University

Peubah Acak Uniform

Setiap "kartu" diambil dari sebaran 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

Pemain B melihat nilainya, lalu memutuskan bertaruh $1 atau tidak

Jika bertaruh, kedua pemain bandingkan nilai. Nilai lebih tinggi menang $1 dari lawan
Jika tidak bertaruh: tidak ada uang menang atau kalah

# Kondisi benar
x <- 4
result <- ifelse(x > 0, sqrt(x), sqrt(-x))
result

# Kondisi salah
x <- (-4)
result <- ifelse(x > 0, sqrt(x), sqrt(-x))
result

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

5 10 14  5 12 12  4 15  7  9

mean(values)

9.3

Teka-teki Probabilitas di R