Write the following using R program.

Write functions to calculate the following special functions and make a plot of the same showing their behavior in the range of x: [0.01 - 10]. (The required equations are provided below). a. Bessel's function of the first kind of order zero - J. b. Modified Bessel's function of the second kind of order zero K. c. (Negative) Exponential Integral (also known as the well function in groundwater and petroleum engineering literature) Make a plot in R plotting all the 3 graphs on a single page. Also include the output obtained from R using built in functions for the same in each of these graph as a comparison (Plot the built in function output as a line and your function evaluation as a point). You will find the negative Exponential integral (expint.El(x)) in VGAM Package. The Bessel functions are available in base R. Comment on how well your approximations work compared to native R implementations. Bessels function of the first kind (Zero Order) 0=1-78539 816.04166 397(3/2) -.00003 954 (3/3)+.00262 573(3/2)* -.00054 125(3/2)*-.00029 333(3/2)5 +.00013 558(3/2)*+e lel