X-Git-Url: https://git.auder.net/?p=agghoo.git;a=blobdiff_plain;f=agghoo.Rcheck%2F00_pkg_src%2Fagghoo%2FR%2Futils.R;fp=agghoo.Rcheck%2F00_pkg_src%2Fagghoo%2FR%2Futils.R;h=0000000000000000000000000000000000000000;hp=823b123c1b41d3c0d8d69f53d0be89252bea59d1;hb=16906f6e8c432b811ddf99da1b18a2a357a75235;hpb=97f16440280a40a49c4898a75942e374880bfca3

diff --git a/agghoo.Rcheck/00_pkg_src/agghoo/R/utils.R b/agghoo.Rcheck/00_pkg_src/agghoo/R/utils.R
deleted file mode 100644
index 823b123..0000000
--- a/agghoo.Rcheck/00_pkg_src/agghoo/R/utils.R
+++ /dev/null
@@ -1,30 +0,0 @@
-# Helper for cross-validation: return the next test indices.
-get_testIndices <- function(n, CV, v, shuffle_inds) {
-  if (CV$type == "vfold") {
-    # Slice indices (optionnally shuffled)
-    first_index = round((v-1) * n / CV$V) + 1
-    last_index = round(v * n / CV$V)
-    test_indices = first_index:last_index
-    if (!is.null(shuffle_inds))
-      test_indices <- shuffle_inds[test_indices]
-  }
-  else
-    # Monte-Carlo cross-validation
-    test_indices = sample(n, round(n * CV$test_size))
-  test_indices
-}
-
-# Helper which split data into training and testing parts.
-splitTrainTest <- function(data, target, testIdx) {
-  dataTrain <- data[-testIdx,]
-  targetTrain <- target[-testIdx]
-  dataTest <- data[testIdx,]
-  targetTest <- target[testIdx]
-  # [HACK] R will cast 1-dim matrices into vectors:
-  if (!is.matrix(dataTrain) && !is.data.frame(dataTrain))
-    dataTrain <- as.matrix(dataTrain)
-  if (!is.matrix(dataTest) && !is.data.frame(dataTest))
-    dataTest <- as.matrix(dataTest)
-  list(dataTrain=dataTrain, targetTrain=targetTrain,
-       dataTest=dataTest, targetTest=targetTest)
-}