Use calculations df for lms

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)),