set.seed(323652639)
x <- iris[, -1]
y <- iris[, 1]
forest <- forestry(x, y, ntree = 3)
y_pred_before <- predict(forest, x)
forest <- make_savable(forest)
saveForestry(forest, file = "forest.Rda")
rm(forest)
forest <- loadForestry("forest.Rda")
y_pred_after <- predict(forest, x)
testthat::expect_equal(y_pred_before, y_pred_after, tolerance = 0.000001)
file.remove("forest.Rda")
Run the code above in your browser using DataLab