您没有将种子设置在任何位置,因此无法确认重新取样结果。
如果在运行之前设置种子 train ,您可以通过引用来使用相同的重采样索引 control 对象使用
train
control
suffix <- paste0("Rep", gsub(" ", "0", format(1:10)), "$") out <- foreach(i = 1:10, .combine = rbind, .inorder = FALSE) %do% { in_model <- testmodel$control$index[grepl(suffix[i], names(testmodel$control$index))]
然后使用 in_model[[j]] 获取用于建模和的数据 -in_model[[j]] 给出负整数以得出相同的保持集。
in_model[[j]]
-in_model[[j]]
此外,您似乎错误地分配了预测。你可能想要使用类似的东西
pred <- predict(temp_model,newdata=test,type="response") pred <- factor(ifelse(pred > .5, "Yes", "No"))
马克斯