Added eventtest.R for the simulation