recode: reduce the size of OutputModels (Part 1) (#683)

* recode: getting rid of some columns in OutputModels Co-authored-by: michellegrushkometa <michellegrushko@meta.com>
facebookexperimental · Apr 13, 2023 · bce870e · bce870e
1 parent 4f3289d
commit bce870e
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/R/R/model.R b/R/R/model.R
@@ -827,16 +827,14 @@ robyn_mmm <- function(InputCollect,
               mape = mape,
               lambda = lambda_scaled,
               lambda_hp = lambda_hp,
-              lambda_max = lambda_max,
-              lambda_min_ratio = lambda_min_ratio,
               solID = paste(trial, lng, i, sep = "_"),
               trial = trial,
               iterNG = lng,
-              iterPar = i,
-              df.int = df.int
+              iterPar = i
             )
+
             total_common <- ncol(common)
-            split_common <- which(colnames(common) == "lambda_min_ratio")
+            split_common <- which(colnames(common) == "lambda_hp")
 
             resultCollect[["resultHypParam"]] <- as_tibble(hypParamSam) %>%
               select(-.data$lambda) %>%