The Pareto distribution has PDF f(xla,B) = pt for > a > 0,B > 0. We saw in class that MLE = X(1) regardless of the value of B and use this fact to find derive an expression for BMLE. Now use R and the IPIT to simulate 100 observations from a Pareto(a = 2, B = 2) distribution. Calculate the MLE estimators me. Bu and store them. Repeat this 10,000 times so that you have 10,000 simulated values of the MLE estimators. Produce histograms of your 10,000 simulated XMLE, BMLE values and compare these with the'true' values.