diff --git a/R/help_functions.R b/R/help_functions.R
index 38b6cf0..70e8a82 100644
--- 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
index 4c967c9..f199310 100644
--- 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 {