... | ... |
@@ -3,9 +3,9 @@ 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.1.26 |
|
7 |
-Date: 2022-10-19 |
|
8 |
-Author: Dario Strbenac, Ellis Patrick, John Ormerod, Graham Mann, Jean Yang |
|
6 |
+Version: 3.1.27 |
|
7 |
+Date: 2022-10-24 |
|
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 |
11 | 11 |
Encoding: UTF-8 |
... | ... |
@@ -135,6 +135,10 @@ input data. Autmomatically reducing to smaller number.") |
135 | 135 |
{ |
136 | 136 |
warning(paste(sum(resultErrors), "cross-validations, but not all, had an error and have been removed from the results.")) |
137 | 137 |
results <- results[!resultErrors] |
138 |
+ iterationID <- do.call(paste, as.data.frame(splitsTestInfo)) |
|
139 |
+ iterationIDlevels <- unique(iterationID) |
|
140 |
+ errorRows <- iterationID %in% iterationIDlevels[which(resultErrors)] |
|
141 |
+ splitsTestInfo <- splitsTestInfo[!errorRows, ] |
|
138 | 142 |
} |
139 | 143 |
|
140 | 144 |
validationText <- .validationText(crossValParams) |