From bce870e454ee0e5698f1547b07a30ebdce1975fe Mon Sep 17 00:00:00 2001 From: laresbernardo Date: Thu, 13 Apr 2023 13:01:08 -0300 Subject: [PATCH] recode: reduce the size of OutputModels (Part 1) (#683) * recode: getting rid of some columns in OutputModels Co-authored-by: michellegrushkometa --- R/R/model.R | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/R/R/model.R b/R/R/model.R index 66f9ee546..7fb0963ed 100644 --- 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) %>%