Update Season Simulation.R