Merge pull request #236 from gavinsimpson/fix-interval-check

Fix to compare with the interval column in model data
adibender · Feb 24, 2024 · fb62a7d · fb62a7d
2 parents 4d7ac7f + 4230886
commit fb62a7d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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.",