好的，这是一些测试数据
client.on('message', message => {
if(message.author.bot) return; // do nothing
// if not responding to a bot, do bot stuff
})
我想了解的是如何获得createFolds以一致地创建相同尺寸的折叠。 让我举个例子：
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
输出：
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
我希望每次运行函数时都尽可能进行“偶数”除法，例如在进行8次观察的4倍折叠的情况下。对于5折的情况，我知道这是不可能的。