Create Simulation.R

Updated version of R script for step 1