From bd0f3521f6623082d3a4bfd8680066032e38d7a6 Mon Sep 17 00:00:00 2001
From: LittleBeannie <yujie.zhao@merck.com>
Date: Thu, 21 May 2026 13:50:38 -0400
Subject: [PATCH] update the change point in the calculation of expected
 accrual

---
 R/pw_info.R | 6 ------
 1 file changed, 6 deletions(-)

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) {