# \donttest{
library(nflseedR)
# set seed for recreation,
# internal parallelization requires a L'Ecuyer-CMRG random number generator
set.seed(19980310, kind = "L'Ecuyer-CMRG")
# Simulate the season 20 times in 1 round
sim <- nflseedR::simulate_nfl(
nfl_season = 2021,
fresh_season = TRUE,
simulations = 20
)
# Create Summary Tables
tbl <- summary(sim)
# The output of tbl is given in the above image.
# }
Run the code above in your browser using DataLab