IN R / RSTUDIO a O F(x) = 1 - 8 1 [2 pts] Derive the inverse-CDF and write a function that calculates the inverse-CDF called qpareto (p, a, b), where p is a probability between 0 and 1, and a and b are the parameters for the Pareto distribution. PEC. Verify that your function gives the same output as mine