Use calculations df for lms

2024-09-12 18:49:13 -04:00
parent 2f932b319c
commit bfc67574bc
1 changed files with 1 additions and 1 deletions
--- 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)),