Resultados de lotería reproducibles
Trabajas como programador para una lotería online. Por ley, los ganadores deben ser seleccionados al azar y la selección debe ser transparente.
En tu espacio de trabajo tienes una lista de billetes de lotería, ls_tickets. Hay 51 elementos en ls_tickets, uno por cada estado de US. Cada elemento de esta lista contiene números de billetes de lotería. En tu espacio de trabajo, tienes una función, lottery(), que selecciona aleatoriamente el boleto ganador de cada estado. Estás probando la función lottery() aplicándola a ls_tickets en paralelo con future_map(). El problema es que los ganadores son diferentes cada vez que ejecutas este código. Se ha cargado para ti el paquete furrr.
Este ejercicio forma parte del curso
Programación paralela en R
Instrucciones del ejercicio
- Crea una configuración para
future_map(). - Establece la semilla en
4321en la configuración. - Suministra esta configuración a
future_map().
ejercicio interactivo práctico
Prueba este ejercicio completando este código de ejemplo.
lottery <- function(tickets) {
sample(tickets, 1)
}
# Create a configuration for future_map()
config <- ___(
# Provide the seed 4321 to the correct argument
___ = ___)
plan(multisession, workers = 4)
winners <- future_map(ls_tickets, lottery,
# Supply configuration to future_map()
___ = ___)
plan(sequential)