From bfc67574bcfddfb0f916b8d4791786e7e512eb65 Mon Sep 17 00:00:00 2001 From: Bryan Roessler Date: Thu, 12 Sep 2024 18:49:13 -0400 Subject: [PATCH] Use calculations df for lms --- qhtcp-workflow/apps/r/calculate_interaction_zscores.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R index fac65ee0..7e0c7e2c 100644 --- a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R +++ b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R @@ -270,7 +270,7 @@ calculate_interaction_scores <- function(df, max_conc, variables, group_vars = c Delta_L = if_else(SM == 1, mean_L - WT_L, Delta_L) ) - lms <- df %>% + lms <- calculations %>% group_by(across(all_of(group_vars))) %>% summarise( lm_L = list(lm(Delta_L ~ conc_num_factor)),