Added SimRenewal.R, for part 4c