johrpan/ubigen
1
0
Fork 0
mirror of https://github.com/johrpan/ubigen.git synced 2025-10-26 19:57:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Introduce more variation measures

Browse source
This commit is contained in:
Elias Projahn 2022-09-25 19:02:13 +02:00
parent 2eec3285f9
commit 76f81ab6a7
3 changed files with 22 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
scripts/ranking.R
View file

@ -10,8 +10,8 @@ genes <- fread(here("scripts", "input", "genes.csv"))
data <- fread(here("scripts", "output", "results.csv"))
data[, score := 0.5 * above_95 +
0.25 * mean_expression_normalized +
-0.25 * sd_expression_normalized]
0.25 * median_expression_normalized +
-0.25 * qcv_expression_normalized]
# Normalize scores to be between 0.0 and 1.0.
data[, score := (score - min(score, na.rm = TRUE)) /