fix test error

OHDSI · May 15, 2024 · c0db10a · c0db10a
1 parent b699293
commit c0db10a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/EvaluationSummary.R b/R/EvaluationSummary.R
@@ -263,7 +263,8 @@ getEvaluationStatistics_survival <- function(prediction, evalColumn, timepoint,
     eStatistic <- eStatistic90 <- -1
     if (!is.null(w)) {
       eStatistic <- mean(abs(w$actual - w$estimatedSurvival)) 
-      eStatistic90 <- stats::quantile(abs(w$actual - w$estimatedSurvival), probs = .9)
+      eStatistic90 <- stats::quantile(abs(w$actual - w$estimatedSurvival),
+                                      probs = .9, na.rm = TRUE)
     }
 
     result <- rbind(