|
@@ -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)
|
|
Delta_L = if_else(SM == 1, mean_L - WT_L, Delta_L)
|
|
|
)
|
|
)
|
|
|
|
|
|
|
|
- lms <- df %>%
|
|
|
|
|
|
|
+ lms <- calculations %>%
|
|
|
group_by(across(all_of(group_vars))) %>%
|
|
group_by(across(all_of(group_vars))) %>%
|
|
|
summarise(
|
|
summarise(
|
|
|
lm_L = list(lm(Delta_L ~ conc_num_factor)),
|
|
lm_L = list(lm(Delta_L ~ conc_num_factor)),
|
