From 735923f414218fc94a09dccc5e66cdd9d5be1099 Mon Sep 17 00:00:00 2001 From: Matthew Gaughan Date: Fri, 10 May 2024 17:46:45 -0500 Subject: [PATCH] cleaning models and updating rdd --- R/{ => final_models}/0510_pop_contrib_collab.rda | Bin R/{ => final_models}/0510_pop_contrib_contrib.rda | Bin R/{ => final_models}/0510_pop_rm_collab.rda | Bin R/{ => final_models}/0510_pop_rm_contrib.rda | Bin .../0510_rm_all.rda} | Bin R/readmeRDDAnalysis.R | 6 ++++-- 6 files changed, 4 insertions(+), 2 deletions(-) rename R/{ => final_models}/0510_pop_contrib_collab.rda (100%) rename R/{ => final_models}/0510_pop_contrib_contrib.rda (100%) rename R/{ => final_models}/0510_pop_rm_collab.rda (100%) rename R/{ => final_models}/0510_pop_rm_contrib.rda (100%) rename R/{0510_log1p_nagq_gmodel_backup.rda => final_models/0510_rm_all.rda} (100%) diff --git a/R/0510_pop_contrib_collab.rda b/R/final_models/0510_pop_contrib_collab.rda similarity index 100% rename from R/0510_pop_contrib_collab.rda rename to R/final_models/0510_pop_contrib_collab.rda diff --git a/R/0510_pop_contrib_contrib.rda b/R/final_models/0510_pop_contrib_contrib.rda similarity index 100% rename from R/0510_pop_contrib_contrib.rda rename to R/final_models/0510_pop_contrib_contrib.rda diff --git a/R/0510_pop_rm_collab.rda b/R/final_models/0510_pop_rm_collab.rda similarity index 100% rename from R/0510_pop_rm_collab.rda rename to R/final_models/0510_pop_rm_collab.rda diff --git a/R/0510_pop_rm_contrib.rda b/R/final_models/0510_pop_rm_contrib.rda similarity index 100% rename from R/0510_pop_rm_contrib.rda rename to R/final_models/0510_pop_rm_contrib.rda diff --git a/R/0510_log1p_nagq_gmodel_backup.rda b/R/final_models/0510_rm_all.rda similarity index 100% rename from R/0510_log1p_nagq_gmodel_backup.rda rename to R/final_models/0510_rm_all.rda diff --git a/R/readmeRDDAnalysis.R b/R/readmeRDDAnalysis.R index 3853d7f..227bfbe 100644 --- a/R/readmeRDDAnalysis.R +++ b/R/readmeRDDAnalysis.R @@ -137,9 +137,11 @@ D_df_ranef |> all_residuals <- residuals(all_model) qqnorm(all_residuals) # mrg behavior for this -mrg_model <- lmer(log1p_count ~ D * I(week_offset)+ scaled_project_age + (D * I(week_offset)| upstream_vcs_link), data=all_actions_data, REML=FALSE, control = lmerControl( - optimizer ='optimx', optCtrl=list(method='L-BFGS-B'))) +mrg_actions_data$log1p_count <- log1p(mrg_actions_data$count) +mrg_model <- glmer.nb(log1p_count ~ D * week_offset + scaled_project_age + (D * week_offset | upstream_vcs_link), + control=glmerControl(optimizer="bobyqa", optCtrl=list(maxfun=2e5)), data=mrg_actions_data) summary(mrg_model) +saveRDS(mrg, "0510_rm_mrg.rda") #identifying the quartiles of effect for D mrg_model_ranef <- ranef(mrg_model, condVar=TRUE) df_mrg_ranefs <- as.data.frame(mrg_model_ranef)