From 6d678e661b04f72ebbc1b863de66180388e17c2b Mon Sep 17 00:00:00 2001 From: Bryan Roessler Date: Thu, 5 Sep 2024 19:56:10 -0400 Subject: [PATCH] Rename vars in data processing --- workflow/apps/r/calculate_interaction_zscores5.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/workflow/apps/r/calculate_interaction_zscores5.R b/workflow/apps/r/calculate_interaction_zscores5.R index c663bd28..e452a894 100644 --- a/workflow/apps/r/calculate_interaction_zscores5.R +++ b/workflow/apps/r/calculate_interaction_zscores5.R @@ -116,10 +116,10 @@ load_and_process_data <- function(easy_results_file, sd = 3) { filter(!(.[[1]] %in% c("", "Scan"))) %>% filter(!is.na(ORF) & ORF != "" & !Gene %in% c("BLANK", "Blank", "blank") & Drug != "BMH21") %>% # Rename columns - rename(L = l, num = Num., AUC = AUC96, scan = Scan) %>% + rename(L = l, num = Num., AUC = AUC96, scan = Scan, last_bg = LstBackgrd, first_bg = X1stBackgrd) %>% mutate( across(c(Col, Row, num), as.numeric), - across(c(L, K, r, scan, AUC, LstBackgrd, X1stBackgrd), as.numeric), + across(c(L, K, r, scan, AUC, last_bg, first_bg), as.numeric), delta_bg = last_bg - first_bg, delta_bg_tolerance = mean(delta_bg, na.rm = TRUE) + (sd * sd(delta_bg, na.rm = TRUE)), NG = if_else(L == 0 & !is.na(L), 1, 0),