You are interested in estimating wa, the mean monthly rate of return of the stock of Company A listed on the Toronto Stock Exchange. You randomly pick n = 35 months, for each you observe the monthly rate of return of Company A stock. You have observed the following data, in %. 5.03, 6.2, 4.6, 3.29, 4.46, 3.82, 4.48, 10.1, 4.16,6.53, 3.38, 3.99, 4.58, 4.35, 3.55, 6.89, 5.52, 1.61, 6.63, 7.5, 4.19,2.09, 4.53, 4.03, 4.84,2.5, 5.51, 2.52, 6.09, 0.52, 4.84, 6.46, 5.22, 7.37,5.17 Data from the sample, are saved in the Download .csv file. (a) Find a 97% confidence interval for Mx by Bootstrapping 1000 samples. Use the seed 1533 to ensure that R-Studio "randomly" samples the same "random samples as this question will expect. Use at least 4 digits after the decmial if rounding. You can do this by including the code, you can copy it into your R-Studio to bootstrap your samples. ANGkind(sample.kind - "Rejection"); set.seed(1533); B-do(1000) mean(resample(c(5.03, 6.2, 4.6, 3.29, 4.46, 3.82, 4.48, 10.1, 4.16,6.53, 3.38, 3.99, 4.58, 4.35, 3.55, 6.89, 5.52, 1.61, 6.63, 7.5, 4.19,2.09,4.53, 4.03, 4.84, 2.5, 5.51, 2.52, 6.09, 0.52, 4.84,6.46, 5.22, 7.37,5.17), 35)): Ignore any errors or warnings that show up. lower bound 4,052 M upper bound = 5.4652 . (b) From the from 97% confidence interval found in (a), can you conclude that the mean monthly rate of return of Company A stock is 7%, or wa= 7%? No because the upper bound of the 97% confidence interval is less than 7% (c) From the from 97% confidence interval found in (a), can you conclude that the mean monthly rate of return of Company A stock greater than 5.1%, or MA> 5.1%? No because the lower bound of the 97% confidence interval is less than 5.1%