fix checking bug

anthonydevaux · Jan 30, 2024 · 10a4db5 · 10a4db5
1 parent 4b5034a
commit 10a4db5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/checking.R b/R/checking.R
@@ -117,7 +117,7 @@ checking <- function(DynForest_obj = NULL,
         stop(paste0(idVar, " variable should be a numeric or integer object in 'Y$Y'!"))
       }
       if (Y$type=="surv"){
-        if (!inherits(Y$Y[,3], "numeric")){
+        if (!inherits(Y$Y[,3], c("numeric","integer"))){
           stop("The column in 'Y$Y' to provide the causes should be typed as numeric with 0 indicating no event!")
         }
       }