Browse code

- Closing bracket in if check corrected.

Dario Strbenac authored on 29/11/2022 03:00:08
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.2.4
7
-Date: 2022-11-27
6
+Version: 3.2.5
7
+Date: 2022-11-28
8 8
 Author: Dario Strbenac, Ellis Patrick, Sourish Iyengar, Harry Robertson, Andy Tran, John Ormerod, Graham Mann, Jean Yang
9 9
 Maintainer: Dario Strbenac <dario.strbenac@sydney.edu.au>
10 10
 VignetteBuilder: knitr
... ...
@@ -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
     }