for (num.tree in c(500, 1000, 1500, 2000, 2500, 3000)) {
set.seed(345)
rf_maxtrees <- caret::train(eq1,
data = block.data,
method = "ranger",
metric = "Rsquared",
tuneGrid = tuneGrid,
trControl = control,
num.tree = num.tree)
key <- toString(num.tree)
store_maxtrees[[key]] <- rf_maxtrees
}