fix ipsw

stc04003 · May 14, 2024 · 2cbdcf3 · 2cbdcf3
1 parent fe3403d
commit 2cbdcf3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/reReg.R b/R/reReg.R
@@ -134,7 +134,7 @@ regFit.cox.GL <- function(DF, engine, stdErr) {
   Y <- rep(DF$time2[event == 0], mt + 1)
   X0 <- X[event == 0,,drop = FALSE]
   fit.coxph <- coxph(Surv(T[event == 0], DF$terminal[event == 0]) ~ X0)
-  cumHaz <- basehaz(fit.coxph)
+  cumHaz <- basehaz(fit.coxph, center = FALSE)
   ## cumHaz$hazard <- cumHaz$hazard / max(cumHaz$hazard)
   wgt <- sapply(exp(X0 %*% coef(fit.coxph)), function(x)
     approxfun(cumHaz$time, exp(-cumHaz$hazard * x), yleft = 1,