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

Rename vars in data processing

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-05 19:56:10 -04:00
parent 738c792959
commit 6d678e661b
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
workflow/apps/r/calculate_interaction_zscores5.R
View File

@@ -116,10 +116,10 @@ load_and_process_data <- function(easy_results_file, sd = 3) {
filter(!(.[[1]] %in% c("", "Scan"))) %>% filter(!(.[[1]] %in% c("", "Scan"))) %>%
filter(!is.na(ORF) & ORF != "" & !Gene %in% c("BLANK", "Blank", "blank") & Drug != "BMH21") %>% filter(!is.na(ORF) & ORF != "" & !Gene %in% c("BLANK", "Blank", "blank") & Drug != "BMH21") %>%
# Rename columns # 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( mutate(
across(c(Col, Row, num), as.numeric), 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 = last_bg - first_bg,
delta_bg_tolerance = mean(delta_bg, na.rm = TRUE) + (sd * sd(delta_bg, na.rm = TRUE)), 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), NG = if_else(L == 0 & !is.na(L), 1, 0),