different r code to match survival curves piece-wise weibull