插入符号:BagEarth和再现性

我注意到每次我使用 caret::bagEarth ,我的答案有点不同。我试过了 set.seed 但没有效果。有没有一种方法可以在每次运行时从函数中得到相同的答案?

这是一个非常糟糕的随机数模型,但它应该是可重复的:

library(caret)
predictors<-data.frame(matrix(rbinom(10*1000, 18, .5), ncol=5))
response<-data.frame(matrix(rbinom(2*1000, 221:382, .5), ncol=1))

set.seed(222)
bag_mods<-bagEarth(x = predictors, response, B = 20, keepX = TRUE)