From 86c8e28b67e081644e29df026a12ad1d0ecc3fd2 Mon Sep 17 00:00:00 2001 From: prockenschaub Date: Thu, 20 Apr 2023 15:46:18 +0200 Subject: [PATCH] add tol to avoid float inprec in sofa_cardio --- R/callback-sofa.R | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/R/callback-sofa.R b/R/callback-sofa.R index 57db1883..f3727270 100644 --- a/R/callback-sofa.R +++ b/R/callback-sofa.R @@ -208,11 +208,12 @@ sofa_liver <- sofa_single( sofa_cardio <- function(..., interval = NULL) { score_calc <- function(map, dopa, norepi, dobu, epi) { + eps <- 10^-6 fifelse( - is_true(dopa > 15 | epi > 0.1 | norepi > 0.1), 4L, fifelse( - is_true(dopa > 5 | (epi > 0 & epi <= 0.1) | - (norepi > 0 & norepi <= 0.1)), 3L, fifelse( - is_true((dopa > 0 & dopa <= 5) | dobu > 0), 2L, fifelse( + is_true(dopa > 15 + eps | epi > 0.1 + eps | norepi > 0.1 + eps), 4L, fifelse( + is_true(dopa > 5 + eps | (epi > 0 + eps & epi <= 0.1 + eps) | + (norepi > 0 + eps & norepi <= 0.1 + eps)), 3L, fifelse( + is_true((dopa > 0 + eps & dopa <= 5 + eps) | dobu > 0 + eps), 2L, fifelse( is_true(map < 70), 1L, 0L ) )