updates

drizopoulos · May 23, 2024 · 04de963 · 04de963
1 parent 38ee080
commit 04de963
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/R/help_functions.R b/R/help_functions.R
@@ -304,7 +304,7 @@ extract_log_sigmas <- function (object) {
     out
 }
 
-value <- function (x, time) rep(1, NROW(x))
+value <- function (x) rep(1, NROW(x))
 vexpit <- Dexpit <- vexp <- Dexp <- function (x) rep(1, NROW(x))
 vabs <- vsqrt <- vlog <- vlog2 <- vlog10 <- function (x) rep(1, NROW(x))
 poly2 <- poly3 <- poly4 <- function (x) rep(1, NROW(x))

diff --git a/R/predict_funs.R b/R/predict_funs.R
@@ -769,8 +769,8 @@ predict_Long <- function (object, components_newdata, newdata, newdata2, times,
                  "maximum time to predict; redefine 'times' accordingly.")
         }
         if (times_per_id) {
-            f <- function (lt, tt, tm) c(lt, min(tt, tm))
-            times <- mapply2(f, lt = last_times, tt = times,
+            g <- function (lt, tt, tm) c(lt, min(tt, tm))
+            times <- mapply2(g, lt = last_times, tt = times,
                              MoreArgs = list(tm = t_max))
 
         } else {
@@ -907,8 +907,8 @@ predict_Event <- function (object, components_newdata, newdata, newdata2,
                  "maximum time to predict; redefine 'times' accordingly.")
         }
         if (times_per_id) {
-            f <- function (lt, tt, tm) c(lt, min(tt, tm))
-            times <- mapply2(f, lt = last_times, tt = times,
+            g <- function (lt, tt, tm) c(lt, min(tt, tm))
+            times <- mapply2(g, lt = last_times, tt = times,
                              MoreArgs = list(tm = t_max))
 
         } else {