O modelo de von Neumann

Probability Puzzles in R

Peter Chi

Assistant Professor of Statistics Villanova University

Variáveis aleatórias uniformes

Cada "mão" é sorteada de uma 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
Probability Puzzles in R

Apostando no modelo de von Neumann

O Jogador B observa o valor e decide se aposta $1 ou não

  • Se apostar, os jogadores comparam os valores. O maior ganha $1 do outro
  • Se não apostar: ninguém ganha ou perde dinheiro
Probability Puzzles in R

A função ifelse

# Condição é verdadeira
x <- 4
result <- ifelse(x > 0, sqrt(x), sqrt(-x))
result

2

# Condição é falsa
x <- (-4)
result <- ifelse(x > 0, sqrt(x), sqrt(-x))
result

2
Probability Puzzles in R

A função mean, revisitada

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

5 10 14  5 12 12  4 15  7  9

 

mean(values)

9.3
Probability Puzzles in R

Sua vez!

Probability Puzzles in R

Preparing Video For Download...