if (FALSE) {
# Run two different ActivePathways analyses
enriched_pathways <- ActivePathways(
pval_matrix, gmt = fname_GMT2, cytoscape_file_tag = "original_")
enriched_pathways_directional <- ActivePathways(
pval_matrix, gmt = fname_GMT2, cytoscape_file_tag = "directional_",
merge_method = "DPM", scores_direction = dir_matrix,
constraints_vector = constraints_vector)
# Merge the results
merge_results(
enriched_pathways, enriched_pathways_directional,
gmt_file = fname_GMT2,
output_prefix = "Aggregated",
col_colors = c("#FF0000", "#00FF00", "#FFFFF0"),
tests = c('rna', 'protein', 'combined')
)
}
Run the code above in your browser using DataLab