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