R/run_simulation.R

In schifferl/LagSelectionBias:

run_simulation <- function(simulation_years, simulation_races, simulation_sexes, simulation_seed, cohort_size, education_covariance) {
  create_cohorts(simulation_years, simulation_races, simulation_sexes, simulation_seed, cohort_size, education_covariance) %>%
    evolve_cohorts()
}