Fix: bug issue #520 fix

facebookexperimental · Nov 1, 2022 · 4f81ffc · 4f81ffc
1 parent b45a76d
commit 4f81ffc
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/DESCRIPTION b/R/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: Robyn
 Type: Package
 Title: Semi-Automated Marketing Mix Modeling (MMM) from Meta Marketing Science 
-Version: 3.8.0
+Version: 3.8.1
 Authors@R: c(
     person("Gufeng", "Zhou", , "gufeng@meta.com", c("aut")),
     person("Leonel", "Sentana", , "leonelsentana@meta.com", c("aut")),

diff --git a/R/R/model.R b/R/R/model.R
@@ -1051,7 +1051,7 @@ model_decomp <- function(coefs, dt_modSaturated, y_pred, dt_saturatedImmediate,
   xDecompOut <- cbind(data.frame(ds = dt_modRollWind$ds, y = y, y_pred = y_pred), xDecomp)
 
   ## Decomp immediate & carryover response
-  coefs_media <- coefs[rownames(coefs) == names(dt_saturatedImmediate), ]
+  coefs_media <- coefs[rownames(coefs) %in% names(dt_saturatedImmediate), ]
   mediaDecompImmediate <- data.frame(mapply(function(regressor, coeff) {
     regressor * coeff
   }, regressor = dt_saturatedImmediate, coeff = coefs_media))

diff --git a/demo/demo.R b/demo/demo.R
@@ -4,7 +4,7 @@
 # LICENSE file in the root directory of this source tree.
 
 #############################################################################################
-####################         Facebook MMM Open Source - Robyn 3.8.0    ######################
+####################         Facebook MMM Open Source - Robyn 3.8.1    ######################
 ####################                    Quick guide                   #######################
 #############################################################################################