我正在尝试使用 quantregForest 运行可重现的结果，但无法获得相同的结果。有没有办法在这个函数中设置种子？
x <- matrix(rnorm(500), ncol = 10)
y <- rnorm(50)
nodesize = floor(length(y) / 4)
set.seed(71)
a <- quantregForest(x,y, keep.inbag=TRUE,nodesize=nodesize,ntree=2000, nthreads = 1)
b <- quantregForest(x,y, keep.inbag=TRUE,nodesize=nodesize,ntree=2000, nthreads = 1)
testthat::expect_equal(a, b)
a 不等于 b