R Simulation code