diff --git a/R/pw_info.R b/R/pw_info.R index 957b2e21b..069492877 100644 --- a/R/pw_info.R +++ b/R/pw_info.R @@ -88,12 +88,6 @@ pw_info <- function( # get the change points of the piecewise exp for the failure rates fr_change_point <- fail_rate_s$duration - # make the last change point into around 1e6 - i <- is.finite(fr_change_point) - fr_change_point <- c( - if (all(i)) head(fr_change_point, -1) else fr_change_point[i], - max(total_duration) + 1e6 - ) fr_cumsum <- cumsum(fr_change_point) for (td in total_duration) {