Making response surface and steepest ascent analyses using R software

I'd like to have an example of the response surface and steepest ascent analyses determining the optimal growing condition for the seedling length using the package “RSM” of R software. Experimental data for subsequent mathematical processing are in the attached file in table 1. The output data of mathematical calculations should be presented as in tables 2 and 3. I need to get working files with codes.