- Closing bracket in if check corrected.
... | ... |
@@ -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 |
} |