From 67c80d350fcfd8612d2f43ea77bbe0f7b21c7748 Mon Sep 17 00:00:00 2001 From: Wesley Brooks Date: Thu, 21 Nov 2024 11:46:06 -0800 Subject: [PATCH] allow user to set GREAT request interval --- R/Investigate_Functional_Enrichments.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/Investigate_Functional_Enrichments.R b/R/Investigate_Functional_Enrichments.R index 97f06d5..f610ff1 100644 --- a/R/Investigate_Functional_Enrichments.R +++ b/R/Investigate_Functional_Enrichments.R @@ -244,6 +244,7 @@ enrichModule <- function(regions, module = NULL, "bonferroni", "BH", "BY", "none"), min_region_hits = 2, pvalue_threshold = 0.01, save = TRUE, file = "Module_Enrichment_Results.txt", + request_interval = 2, verbose = TRUE){ if(!is.null(module)){ if(verbose){ @@ -286,7 +287,7 @@ enrichModule <- function(regions, module = NULL, adv_span = adv_span, adv_twoDistance = adv_twoDistance, adv_oneDistance = adv_oneDistance, - request_interval = 0, version = version) + request_interval = request_interval, version = version) if(verbose){ message("[enrichModule] Getting results and adjusting p-values using the ", adjMethod, " method")