El modelo de von Neumann

Acertijos de probabilidad en R

Peter Chi

Assistant Professor of Statistics Villanova University

Variables aleatorias uniformes

Cada «mano» se extrae de una Uniforme(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
Acertijos de probabilidad en R

Apostar con el modelo de von Neumann

La persona B observa su valor y decide si apostar $1 o no

  • Si apuesta, comparan valores. Quien tenga más gana $1 de la otra persona
  • Si no apuesta: nadie gana ni pierde dinero
Acertijos de probabilidad en R

La función ifelse

# La condición es verdadera
x <- 4
result <- ifelse(x > 0, sqrt(x), sqrt(-x))
result

2

# La condición es falsa
x <- (-4)
result <- ifelse(x > 0, sqrt(x), sqrt(-x))
result

2
Acertijos de probabilidad en R

La función mean, de nuevo

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

5 10 14  5 12 12  4 15  7  9

 

mean(values)

9.3
Acertijos de probabilidad en R

¡Tu turno!

Acertijos de probabilidad en R

Preparing Video For Download...