Plotting derivative of nls model in R

Question

I have used nls function to fit the following equation

y ~ (C + (A1*exp(-x/h1)) + (A2*exp(-x/h2)))

My code looks as follows