Що стосується реальності, яка реальна різниця між резюме та повторенням?

Це подібно до методів повторного відбору проб Карета , хоча це дійсно ніколи не відповідало цій частині питання узгоджено.

функція поїздів Карет пропонує cvі repeatedcv. Яка різниця в тому, що говорять:

MyTrainControl=trainControl(
    method = "cv",
    number=5,
    repeats=5
)

проти

MyTrainControl=trainControl(
   method = "repeatedcv",
   number=5,
   repeats=5
)

Я розумію, cvрозбиває набір на k-folds (параметр number), а потім запускається і запускає його параметри repeatsкілька разів.

Єдине, про що я міг придумати, - це те, що, можливо, регулярно cvз repeatsвикористанням однакових точних індексів для складок кожен раз? по суті працює cvкожен раз по одних і тих же точних складках, проти, можливо, repeatedcvвибирає нові складки кожен раз?

Може хтось уточнить?

Згідно з посібником з карети, сторінка 22 , параметр repeatsзастосовується лише тоді, коли methodвстановлено значення repeatedcv, тому повторення не виконується, коли methodвстановлено значення cv. Тож різниця між обома методами насправді полягає в тому, що repeatedcvповторюється і cvні.

Убік: Повторення перехресної перевірки з точно однаковим розщепленням дасть абсолютно однаковий результат для кожного повторення (якщо припустити, що модель тренується детерміновано), що не тільки неефективно, але й небезпечно, якщо мова йде про порівняння результатів перевірки для різні модельні алгоритми статистично. Тож пам’ятайте про це, якщо вам коли-небудь доведеться самостійно запрограмувати перевірку.

Фактичний код за цими параметрами можна знайти у вихідному файлі selectByFilter.Rта createDataPartition.R(раніше createFolds.R) у папці `caret / R / 'пакета.

Ознайомтеся з цими файлами, наприклад, тут і тут (будьте обережні, ці посилання можуть з часом вказувати на старішу версію коду). Для зручності відповідні фрагменти (станом на версію 6.0-78 с. Листопада 2017 р.) Показані нижче

У selectByFilter.R c. рядок 157

sbf <- function (x, ...) UseMethod("sbf")
... 

"sbf.default" <-
  function(x, y,
           sbfControl = sbfControl(), ...)
  {
    ...

    if(is.null(sbfControl$index)) sbfControl$index <- switch(
      tolower(sbfControl$method),
      cv = createFolds(y, sbfControl$number, returnTrain = TRUE),
      repeatedcv = createMultiFolds(y, sbfControl$number, sbfControl$repeats),
      loocv = createFolds(y, length(y), returnTrain = TRUE),
      boot =, boot632 = createResample(y, sbfControl$number),
      test = createDataPartition(y, 1, sbfControl$p),
      lgocv = createDataPartition(y, sbfControl$number, sbfControl$p))
...

У createDataPartition.R c. рядок 227

createMultiFolds <- function(y, k = 10, times = 5) {
  if(class(y)[1] == "Surv") y <- y[,"time"]
  prettyNums <- paste("Rep", gsub(" ", "0", format(1:times)), sep = "")
  for(i in 1:times) {
    tmp <- createFolds(y, k = k, list = TRUE, returnTrain = TRUE)
    names(tmp) <- paste("Fold",
                        gsub(" ", "0", format(seq(along = tmp))),
                        ".",
                        prettyNums[i],
                        sep = "")
    out <- if(i == 1) tmp else c(out, tmp)

  }
  out
}