bryan/hartman-server
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use calculations df for lms

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-12 18:49:13 -04:00
parent 2f932b319c
commit bfc67574bc
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
qhtcp-workflow/apps/r/calculate_interaction_zscores.R
View File

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