Please Code in R for answers in rstudio.

**1) Creat a function called "boot_CI" which return the bootstrap confidence interval of any of the three population parameters (mean, median, standard deviation) for any given level of confidence C. Make sure your function works for user defined number of trials and sample size.**

**2) Use the function "boot_CI to find 85% and 92% confidence intervals for the mean carat of Ideal cut diamonds. Use only 300 diamonds of the the Ideal cut diamonds as your original sample. Set the seed for the original sample at 305.**

**3) Use the function "boot_CI" to find 95% confidence interval for the mean and median diamond depth of Fair cut. Use only 200 diamonds of the Fair cut as your original sample.set the seed for the original sample at 3005.**