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

scripts: Store quadrants in CSV

Browse source
This commit is contained in:
Elias Projahn 2024-11-16 11:05:36 +01:00
parent c633d664c1
commit 23af4ba644
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
scripts/gsea_vs_cmap.R
View file

@ -43,11 +43,17 @@ write(genes_optics, here("scripts/output/genes_optics.txt"))
# Percentiles # Percentiles
genes_1_1 <- data[percentile_gtex >= 0.95 & percentile_cmap >= 0.95, gene] data[percentile_gtex < 0.95 & percentile_cmap < 0.95, group := "0_0"]
genes_1_0 <- data[percentile_gtex >= 0.95 & percentile_cmap < 0.95, gene] data[percentile_gtex < 0.95 & percentile_cmap >= 0.95, group := "0_1"]
data[percentile_gtex >= 0.95 & percentile_cmap < 0.95, group := "1_0"]
data[percentile_gtex >= 0.95 & percentile_cmap >= 0.95, group := "1_1"]
write(genes_1_1, here("scripts/output/genes_1_1.txt")) fwrite(data, file = here("scripts/output/gsea_vs_cmap_groups.csv"))
write(genes_1_0, here("scripts/output/genes_1_0.txt"))
write(data[group == "0_0", gene], here("scripts/output/genes_0_0.txt"))
write(data[group == "0_1", gene], here("scripts/output/genes_0_1.txt"))
write(data[group == "1_0", gene], here("scripts/output/genes_1_0.txt"))
write(data[group == "1_1", gene], here("scripts/output/genes_1_1.txt"))
threshold_gtex <- data[percentile_gtex >= 0.95, min(score_gtex)] threshold_gtex <- data[percentile_gtex >= 0.95, min(score_gtex)]
threshold_cmap <- data[percentile_cmap >= 0.95, min(score_cmap)] threshold_cmap <- data[percentile_cmap >= 0.95, min(score_cmap)]