我正在尝试按照以上问题所述,从2组数据转移到3组数据。以下是我使用的脚本:
set.seed(125)
d <- sample(x = nrow(db), size = nrow(db) * 0.60, )
train60 <-db[d, ]
valid40 <-db[-d, ]
有没有办法修改上面的脚本?我尝试创建了另一行:valid40 <- db[-d] * 0.2
,但是没有起作用。
当前数据集有几个因素变量。
我尝试在cut
函数上使用Frank的解决方案,但是我总是得到以下错误:
Error in cut.default(seq(nrow(df)), nrow(df) * cumsum(c(0, spec)), labels = names(spec)) : lengths of 'breaks' and 'labels' differ
即使在网上寻求帮助后,我仍然不理解这个错误。
modelr::crossv_mc
。 - Axeman