5.7 Saving Results

results_dir <- file.path(git_root, "results")
dir.create(results_dir, showWarnings = FALSE)

write.table(
  ora_results,
  file      = file.path(results_dir, "ORA_KEGG_treatment_vs_control.tsv"),
  sep       = "\t",
  quote     = FALSE,
  row.names = FALSE
)

write.table(
  as.data.frame(gsea_results) %>% select(-leadingEdge),
  file      = file.path(results_dir, "GSEA_KEGG_treatment_vs_control.tsv"),
  sep       = "\t",
  quote     = FALSE,
  row.names = FALSE
)

cat("Results saved to:", results_dir, "\n")

## Results saved to: /Users/jasge/Documents/GitHub/dsp_transcriptomics_training/results

cat("  ORA  -> ORA_KEGG_treatment_vs_control.tsv\n")

##   ORA  -> ORA_KEGG_treatment_vs_control.tsv

cat("  GSEA -> GSEA_KEGG_treatment_vs_control.tsv\n")

##   GSEA -> GSEA_KEGG_treatment_vs_control.tsv