Model optimization question (slectiong and gradient boosting) in R

Question

I try to optimize my model but I meet two questions: First, how to perform forward and stepwise selection?

here is my code:

## create