Is anyone here familiar with R? If so please help with this program!!!

The program must:

Use the Steepest Ascent method to find the solution to the problem

max f(x).

f(x) = e^((-x/50)-sinx)where 0 <=x <=12

Create a plot off(x)

Find the Steepest Ascent solution for x0 = 2

Find the Steepest Ascent solution for x0 = 10

Do the solutions agree?

Thanks!