Il modello di von Neumann

Rompicapi di probabilità in R

Peter Chi

Assistant Professor of Statistics Villanova University

Variabili casuali uniformi

Ogni “mano” estratta da 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
Rompicapi di probabilità in R

Scommettere con il modello di von Neumann

Il Giocatore B osserva il valore e decide se puntare $1 o no

  • Se punta, si confrontano i valori. Quello più alto vince $1 dall’altro
  • Se non punta: nessuno vince o perde denaro
Rompicapi di probabilità in R

La funzione ifelse

# Condizione vera
x <- 4
result <- ifelse(x > 0, sqrt(x), sqrt(-x))
result

2

# Condizione falsa
x <- (-4)
result <- ifelse(x > 0, sqrt(x), sqrt(-x))
result

2
Rompicapi di probabilità in R

La funzione mean, ancora

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

5 10 14  5 12 12  4 15  7  9

 

mean(values)

9.3
Rompicapi di probabilità in R

Tocca a te!

Rompicapi di probabilità in R

Preparing Video For Download...