From 4230886bc04334c11da413b521bfb58b914816ff Mon Sep 17 00:00:00 2001 From: Gavin Simpson Date: Tue, 9 Jan 2024 17:40:01 +0100 Subject: [PATCH] fix to compare with the interval column in model data --- R/warnings.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/warnings.R b/R/warnings.R index c5474caa..a3e30501 100644 --- a/R/warnings.R +++ b/R/warnings.R @@ -41,7 +41,7 @@ warn_about_new_time_points.pamm <- function(object, newdata, ...) { int_original <- int_info(object) if ("interval" %in% colnames(newdata)) { int_new <- unique(newdata[["interval"]]) - if(!all(int_new %in% int_original)) { + if(!all(int_new %in% int_original[["interval"]])) { warning( paste0( "Time points/intervals in new data not equivalent to time points/intervals during model fit.",