Commit f646e90e authored by Holger Brandl's avatar Holger Brandl

also export directed hits table for enrichment analysis

parent 66ce867a
......@@ -634,6 +634,10 @@ degs %>%
transmute(ensembl_gene_id, contrast = paste(sample_1, "vs", sample_2)) %>%
write_tsv(paste0(resultsBase, "degs_by_contrast.txt"))
degs %>%
transmute(ensembl_gene_id, contrast = paste(sample_1, if_else(s1_overex, ">", "<"), sample_2)) %>%
write_tsv(paste0(resultsBase, "degs_by_contrast_directed.txt"))
## also export gsea inputs
deAnnot %>%
mutate(contrast = paste(sample_1, "vs", sample_2)) %>%
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment