fix bug with observed_clean calculation.

business-science · Oct 31, 2023 · ce66f4d · ce66f4d
1 parent d9a251c
commit ce66f4d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/anomalize.R b/R/anomalize.R
@@ -191,8 +191,8 @@ anomalize.data.frame <- function(
     ret <- ret %>%
         dplyr::mutate(
             observed_clean = dplyr::case_when(
-                anomaly_direction == -1 ~ recomposed_l1 + (1-.clean_alpha)*anomaly_score,
-                anomaly_direction == 1 ~ recomposed_l2 - (1-.clean_alpha)*anomaly_score,
+                anomaly_direction == -1 ~ recomposed_l1 + (1-.clean_alpha)*(recomposed_l2-recomposed_l1)/2,
+                anomaly_direction == 1 ~ recomposed_l2 - (1-.clean_alpha)*(recomposed_l2-recomposed_l1)/2,
                 TRUE ~ observed
             )
         )