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

Replace deprecated cur_data() with pick()

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-24 20:03:36 -04:00
parent c7ad7246ee
commit 3c90c22a43
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -266,10 +266,10 @@ calculate_interaction_scores <- function(df, max_conc, variables = c("L", "K", "
Zscore_AUC = Delta_AUC / WT_sd_AUC,
# Fit linear models and store in list-columns
gene_lm_L = list(lm(Delta_L ~ conc_num_factor, data = cur_data())),
gene_lm_K = list(lm(Delta_K ~ conc_num_factor, data = cur_data())),
gene_lm_r = list(lm(Delta_r ~ conc_num_factor, data = cur_data())),
gene_lm_AUC = list(lm(Delta_AUC ~ conc_num_factor, data = cur_data())),
gene_lm_L = list(lm(Delta_L ~ conc_num_factor, data = pick(everything()))),
gene_lm_K = list(lm(Delta_K ~ conc_num_factor, data = pick(everything()))),
gene_lm_r = list(lm(Delta_r ~ conc_num_factor, data = pick(everything()))),
gene_lm_AUC = list(lm(Delta_AUC ~ conc_num_factor, data = pick(everything()))),
# Extract coefficients using purrr::map_dbl
lm_intercept_L = map_dbl(gene_lm_L, ~ coef(.x)[1]),