Numerical Differentiation in R

Question

I\'m currently trying to calculate finite differences in R using the fderiv method from the pracma library. I\'ve developed the method