Create simulation.R