support multigroup

waldronlab · Sep 25, 2024 · b12801b · b12801b
1 parent 5d4e2e2
commit b12801b
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/R/lefser.R b/R/lefser.R
@@ -274,10 +274,8 @@ lefser <-
     classf <- colData(relab)[[classCol]]
     classf <- as.factor(classf)
     lclassf <- levels(classf)
-    if (is.null(classf) || !identical(length(lclassf), 2L)) {
-        msg <- "'classCol' must refer to a valid dichotomous (two-level) variable"
-        stop(msg) # ensure the class has only two levels
-    }
+    if (is.null(classf) || length(lclassf) < 2L)
+        stop("'classCol' must be a valid two or more level variable")
     message(
         "The outcome variable is specified as '", classCol,
         "' and the reference category is '", lclassf[1],