Browse code

- Closing bracket in if check corrected.

Dario Strbenac authored on 29/11/2022 02:57:19
Showing 2 changed files

... ...
@@ -3,8 +3,8 @@ Type: Package
3 3
 Title: A framework for cross-validated classification problems, with
4 4
        applications to differential variability and differential
5 5
        distribution testing
6
-Version: 3.3.6
7
-Date: 2022-11-27
6
+Version: 3.3.8
7
+Date: 2022-11-28
8 8
 Authors@R:
9 9
     c(
10 10
     person(given = "Dario", family = "Strbenac", email = "dario.strbenac@sydney.edu.au", role = c("aut", "cre")),
... ...
@@ -514,7 +514,7 @@ cleanClassifier <- function(classifier, measurements, nFeatures){
514 514
     {
515 515
       replacements <- sapply(checkENs, function(checkEN) ifelse(any(nFeatures[[checkEN]] == 1), "GLM", "elasticNetGLM"))
516 516
       classifier[checkENs] <- replacements
517
-      if(any(replacements) == "GLM")    
517
+      if(any(replacements == "GLM"))
518 518
         warning("Elastic Net GLM requires two or more features as input but there is only one.
519 519
 Using an ordinary GLM instead.")
520 520
     }