Create waittimesim.r