Modify Scumble CV calculation

Changes "manual" standard deviation for R's own sd (which is actually the sample standard deviation).
fcharte · Nov 21, 2015 · 8eb522f · 8eb522f
1 parent ab149db
commit 8eb522f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/measures.R b/R/measures.R
@@ -88,8 +88,8 @@ dataset_measures <- function(mld) {
     ####################################
     mld$labels$SCUMBLE.CV <- ifelse(mld$labels$SCUMBLE == 0 | colSums(mld$dataset[mld$labels$index]) == 0,
       0,
-      sqrt(abs(colSums(mld$dataset[mld$labels$index] * mld$dataset$.SCUMBLE^2) /
-        colSums(mld$dataset[mld$labels$index]) - mld$labels$SCUMBLE^2)) / mld$labels$SCUMBLE)
+      sapply(mld$labels$index, function(i) sd(mld$dataset[mld$dataset[, i] != 0, ".SCUMBLE"])) / mld$labels$SCUMBLE
+    )
   }
   else {
     mld$dataset$.labelcount <- numeric()