Please show your R code! Thank you.

Suppose Y1,. .. ,Yn are Exponential(mean=B). We are going to compare coverage probability and average length of two confidence intevals: (a) exact confidence interval for B based on gamma distribution and (b) bootstrap confidence interval for the mean. Suppose B = 3 and n = 100. a. Using simulation (when needed), compare the coverage probabilities for 95% confidence intervals of type (a) and (b). b. Using simulation (when needed), compare the average interval length for 95% confidence intervals of type (a) and (b). c. Suppose Y1,. .. ,Yn are actually Gamma(2,mean=2/3). Repeat the simulations in parts (a) and (b) comparing the incorrect) gamma-based interval and the bootstrap interval. Suppose Y1,. .. ,Yn are Exponential(mean=B). We are going to compare coverage probability and average length of two confidence intevals: (a) exact confidence interval for B based on gamma distribution and (b) bootstrap confidence interval for the mean. Suppose B = 3 and n = 100. a. Using simulation (when needed), compare the coverage probabilities for 95% confidence intervals of type (a) and (b). b. Using simulation (when needed), compare the average interval length for 95% confidence intervals of type (a) and (b). c. Suppose Y1,. .. ,Yn are actually Gamma(2,mean=2/3). Repeat the simulations in parts (a) and (b) comparing the incorrect) gamma-based interval and the bootstrap interval