Я пытаюсь запустить воспроизводимые результаты с 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