recode: landing v3.8.2

facebookexperimental · Nov 23, 2022 · 6d24a6e · 6d24a6e
1 parent 3add082
commit 6d24a6e
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/R/R/model.R b/R/R/model.R
@@ -832,12 +832,8 @@ robyn_mmm <- function(InputCollect,
               mediaDecompImmediate,
               mediaDecompCarryover
             ) %>%
-              # bind_cols(data.frame(t(common[1:8]))) %>%
-              # mutate(intercept = decompCollect$xDecompAgg$xDecompAgg[
-              #   decompCollect$xDecompAgg$rn == "(Intercept)"
-              # ]) %>%
-              # bind_cols(data.frame(t(common[9:11]))) %>%
-              mutate(solID = paste(trial, lng, i, sep = "_"))
+              mutate(solID = paste(trial, lng, i, sep = "_")) %>%
+              select(.data$solID, dplyr::everything())
 
             resultCollect[["xDecompAgg"]] <- decompCollect$xDecompAgg %>%
               bind_cols(data.frame(t(common)))