if(interactive()){
data(
plants_rf,
plants_xy
)
plants_rf_tuned <- rf_tuning(
model = plants_rf,
num.trees = c(25, 50),
mtry = c(5, 10),
min.node.size = c(10, 20),
xy = plants_xy,
repetitions = 5,
n.cores = 1
)
plot_tuning(plants_rf_tuned)
}
Run the code above in your browser using DataLab