Resultados Azar Octavos

Primero se crea un vector de las Posibilidades en los resultados

Posibilidades <- c("Gana A", "Empatan", "Gana B")
Posibilidades

## [1] "Gana A"  "Empatan" "Gana B"

Luego con el vector de posibilidades se crea otro de Resultados

Resultados <-  sample(Posibilidades, 16, replace = TRUE, prob = c(1/3, 1/3, 1/3))
Resultados

##  [1] "Gana B"  "Gana B"  "Empatan" "Gana A"  "Empatan" "Gana B"  "Gana A" 
##  [8] "Gana B"  "Gana A"  "Gana A"  "Gana B"  "Empatan" "Gana A"  "Empatan"
## [15] "Gana B"  "Gana A"

Para escoger los posibles marcadores realizo una distribucion de poisson con un lambda elegido al azar de una normal estandar

set.seed(761)
lambda <- rnorm(1)
Goles <- rpois(1000, lambda)
Marcadores <- for (i in 1:16){i<-sample(Goles, 2, replace = TRUE)
print(i)
}

## [1] 1 0
## [1] 0 1
## [1] 3 1
## [1] 1 0
## [1] 1 1
## [1] 1 1
## [1] 1 0
## [1] 0 2
## [1] 1 2
## [1] 0 0
## [1] 0 0
## [1] 0 1
## [1] 0 0
## [1] 1 0
## [1] 0 1
## [1] 1 0

Para los empates se crea otra distribucion para inferir quien pasa los penales

set.seed(761)
Resultados1 <-  rbinom(5, 1, 0.5) # 1 es que pasa A y 0 que pasa B
Resultados1

## [1] 1 0 1 1 0