Create simulation.r