fixed negative EQR

davidcarayon · Mar 27, 2019 · 5180cb7 · 5180cb7
1 parent c594426
commit 5180cb7
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/utilities.R b/R/utilities.R
@@ -12,6 +12,7 @@ Metric2EQR <- function(metric,HER,par) {
     dplyr::select(ref) %>% dplyr::pull()
   value = metric/refvalue
   EQR = round(ifelse(value > 1, yes = 1, no = value),3)
+  EQR = ifelse(EQR < 0, yes = 0, no = EQR)
   return(EQR)
 
 }