if (FALSE) {
# Get term IDs from merged results
merged_results <- merge_results(
enriched_pathways, enriched_pathways_directional,
gmt_file = fname_GMT2,
output_prefix = "Aggregated",
tests = c('rna', 'protein', 'combined'),
col_colors = c("#FF0000", "#00FF00", "#FFFFF0")
)
# Merge and filter GMT file
merge_gmt(
gmt_file = fname_GMT2,
term_ids = merged_results$term_ids
)
}
Run the code above in your browser using DataLab