ОК, вот некоторые тестовые данные
X <- data.frame(a = seq(1,16,by=2), b = LETTERS[1:8], x= month.abb[1:8], z=letters[1:8])
y <- 1:8
Я пытаюсь понять, как я могу получить createFolds для последовательного создания сгибов одинаковых размеров.Позвольте мне привести пример:
set.seed(233)
folds <- createFolds(y, k = 2, list = TRUE, returnTrain = FALSE)
вывод:
> folds
$Fold1
[1] 1 5 6 8
$Fold2
[1] 2 3 4 7
второй раз не является четным разделением данных на сгибы:
folds <- createFolds(y, k = 2, list = TRUE, returnTrain = FALSE)
> folds
$Fold1
[1] 1 2 5 7 8
$Fold2
[1] 3 4 6
ЧтоЯ бы хотел, чтобы это делалось «по четности», когда это возможно, каждый раз, когда я запускаю функцию, как в случае с 4 сгибами для 8 наблюдений.В случаях с 5 сгибами, я понимаю, что это невозможно.