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

Fix column naming derps

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-24 20:14:20 -04:00
parent fea56ac7a9
commit 89b32de29c
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -322,16 +322,16 @@ calculate_interaction_scores <- function(df, max_conc, variables = c("L", "K", "
Z_Shift_AUC = first(Z_Shift_AUC),
# Sum Z-scores
Sum_Z_score_L = sum(Zscore_L),
Sum_Z_score_K = sum(Zscore_K),
Sum_Z_score_r = sum(Zscore_r),
Sum_Z_score_AUC = sum(Zscore_AUC),
Sum_Z_Score_L = sum(Zscore_L),
Sum_Z_Score_K = sum(Zscore_K),
Sum_Z_Score_r = sum(Zscore_r),
Sum_Z_Score_AUC = sum(Zscore_AUC),
# Calculate Average Z-scores
Avg_Zscore_L = Sum_Z_score_L / num_non_removed_concs,
Avg_Zscore_K = Sum_Z_score_K / num_non_removed_concs,
Avg_Zscore_r = Sum_Z_score_r / (total_conc_num - 1),
Avg_Zscore_AUC = Sum_Z_score_AUC / (total_conc_num - 1)
Avg_Zscore_L = Sum_Z_Score_L / num_non_removed_concs,
Avg_Zscore_K = Sum_Z_Score_K / num_non_removed_concs,
Avg_Zscore_r = Sum_Z_Score_r / (total_conc_num - 1),
Avg_Zscore_AUC = Sum_Z_Score_AUC / (total_conc_num - 1)
) %>%
arrange(desc(Z_lm_L), desc(NG)) %>%
ungroup()