# \donttest{
# Enable progress output during training.
options(grf.verbose = TRUE)
n <- 1500
p <- 10
X <- matrix(rnorm(n * p), n, p)
Y <- X[, 1] * rnorm(n)
r.forest <- regression_forest(X, Y)
options(grf.verbose = FALSE)
# Print current package options.
grf_options()
# Use random seed behavior prior to version 2.4.0.
options(grf.legacy.seed = TRUE)
# Use random seed independent of num.threads (default as of version 2.4.0 and higher).
options(grf.legacy.seed = FALSE)
# }
Run the code above in your browser using DataLab