fix: penalization shoudn't be 0

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: lares
 Type: Package
 Title: Analytics & Machine Learning Sidekick
-Version: 5.2.10.9003
+Version: 5.2.10.9004
 Authors@R: c(
     person("Bernardo", "Lares", , "[email protected]", c("aut", "cre")))
 Maintainer: Bernardo Lares <[email protected]>

R/robyn.R

@@ -461,8 +461,8 @@ certainty_score <- function(
     mutate(Si = ifelse(spend_wt == FALSE, 1, .data$spend / sum(.data$spend))) %>%
     ungroup() %>%
     mutate(
-      pen = ifelse(.data$P < .data$Pmax & .data$P > .data$Pmin, 0, penalization),
-      Xi = .data$Si * ((.data$P - .data$Pi)^2 * pen)
+      pen = ifelse(.data$P < .data$Pmax & .data$P > .data$Pmin, 1, penalization),
+      Xi = .data$Si * ((.data$P - .data$Pi)^2 * .data$pen)
     ) %>%
     group_by(.data$solID, .data$cluster) %>%
     summarize(Mi = sum(.data$Xi, na.rm = TRUE), .groups = "drop") %>%