use Rstuido

Write a function jacobean(f, x, h) which takes as inputs a function f :RM R", XER" and h> 0 and returns an approximation of the Jacobean matrix evaluated at x using the midpoint formula with step- size h. For example: Test Result f_test - function(){ [,1] [.2] 3* cos(x[1]+x[2])/(1 + (x[1]-x[2])^2) [1, ] 1.190306 -0.3051796 } jacobean(f_test, c(-1,0.5), 0.01) Write a function jacobean(f, x, h) which takes as inputs a function f :RM R", XER" and h> 0 and returns an approximation of the Jacobean matrix evaluated at x using the midpoint formula with step- size h. For example: Test Result f_test - function(){ [,1] [.2] 3* cos(x[1]+x[2])/(1 + (x[1]-x[2])^2) [1, ] 1.190306 -0.3051796 } jacobean(f_test, c(-1,0.5), 0.01)