Could anyone help with an R code? Thanks

3. The standard normal distribution function is given by 1 211 For p [0, 1], the 100p standard normal percentage point is defined as that P(x) = [. 12 12 do 200 NUMERICAL INTEGRATION Zp for which (zp) = p. Using the function Phi(z) from Example 11.2.1, calculate zp for p = 0.5, 0.95, 0.975, and 0.99. Hint: express the problem as a root-finding