fix: logic in baseline calcs abs

R/robyn.R

@@ -258,7 +258,7 @@ robyn_modelselector <- function(
     group_by(.data$solID) %>%
     mutate(baseline = .data$contribution / sum(.data$contribution)) %>% ungroup() %>%
     filter(.data$rn == "baseline") %>%
-    mutate(baseline_dist = 1 - abs(.data$baseline - baseline_ref) / abs(.data$baseline)) %>%
+    mutate(baseline_dist = abs(1 - abs(.data$baseline - baseline_ref) / abs(.data$baseline))) %>%
     arrange(.data$baseline_dist) %>%
     select(c("solID", "baseline", "baseline_dist"))