Browse code

- Updated developer names. - Result object creation fixed when a subset of cross-validations have an error.

Dario Strbenac authored on 24/10/2022 01:45:06
Showing 2 changed files

... ...
@@ -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)