Update waittimesim.r