if (FALSE) {
options(java.parameters = "-Xmx10g")
pacman::p_load(bartMachine)
seed = 1984
set.seed(seed)
n = 100
x = rnorm(n, 0, 1)
sigma = 0.1
y = x + rnorm(n, 0, sigma)
num_trees = 200
num_iterations_after_burn_in = 1000
bart_mod = bartMachine(data.frame(x = x), y,
flush_indices_to_save_RAM = FALSE,
num_trees = num_trees,
num_iterations_after_burn_in = num_iterations_after_burn_in,
seed = seed)
raw_node_data = extract_raw_node_data(bart_mod)
}
Run the code above in your browser using DataLab