From 04de9631e0d2a34641e96fb99f888e79aefad417 Mon Sep 17 00:00:00 2001 From: Dimitris Rizopoulos Date: Thu, 23 May 2024 20:47:19 +0200 Subject: [PATCH] updates --- R/help_functions.R | 2 +- R/predict_funs.R | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) 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 {