我已经注意到，每次使用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)