Fix a regression

hrue · Feb 8, 2025 · 4c78a6d · 4c78a6d
1 parent 8d686be
commit 4c78a6d
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/rinla/R/inla.R b/rinla/R/inla.R
@@ -562,15 +562,14 @@
     if (have.surv && (inla.one.of(family, c("coxph")))) {
         ## This is not supported yet.
         stopifnot(is.null(control.predictor$A))
-
         cph <- inla.coxph(formula, data, control.hazard, debug = debug)
         result <- inla(
             cph$formula,
             family = cph$family,
             data = c(as.list(cph$data), cph$data.list),
             contrasts = contrasts,
             quantiles = quantiles,
-            E = cph$E..coxph,
+            E = cph$E,
             offset = if (is.null(offset)) NULL else offset[cph$data$expand..coxph], 
             scale = if (is.null(scale)) NULL else scale[cph$data$expand..coxph], 
             weights = if (is.null(weights)) NULL else weights[cph$data$expand..coxph],