Sort decreasing only for DOSE YuLab-SMU#58

Nelson-Gon · Dec 6, 2021 · d17f195 · d17f195
1 parent a89a61e
commit d17f195
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/gsea.R b/R/gsea.R
@@ -162,8 +162,10 @@ GSEA_internal <- function(geneList,
                  ...) {
 
     by <- match.arg(by, c("fgsea", "DOSE"))
-    if (!is.sorted(geneList))
+
+    if (all(!is.sorted(geneList), by == "DOSE")){
         stop("geneList should be a decreasing sorted vector...")
+    }
     if (by == 'fgsea') {
         .GSEA <- GSEA_fgsea
     } else {