Q1. Health Canada sets a standard for arsenic levels in drinking water to be no more than 10 ppb (parts per billion). You suspect that the arsenic levels in residential drinking water in your residential neighbourhood are, on average, different than the standard set by Health Canada. Letbe the mean level of arsenic, in ppb, in the drinking water of your residential neighbourhood.

(a)You take water samples fromn=35 randomly chosen residences in your neighbourhood, and measure the amount of arsenic in each water-sample. The data, in parts per billion, is given below.

11.68, 8.08, 9.98, 12.44, 10.33, 14.4, 12, 13.14, 8.73, 9.23, 13.16, 12.86, 13.02, 8.17, 10.56, 12.44, 7.62, 12.46, 9.13, 9.68, 6.93, 10.45, 8.38, 11.84, 12.48, 11.44, 9.92, 9.24, 14.54, 9.19, 12.29, 12.18, 13.56, 9.3, 9.48

Find a 95% confidence interval for, by Bootstrapping 1000 samples. Use the seed 6170 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 by including the code, you can copy it into your R-Studio to bootstrap your samples.

RNGkind(sample.kind = "Rejection");

set.seed(6170);

B=do(1000) * mean(resample(c(11.68, 8.08, 9.98, 12.44, 10.33, 14.4, 12, 13.14, 8.73, 9.23, 13.16, 12.86, 13.02, 8.17, 10.56, 12.44, 7.62, 12.46, 9.13, 9.68, 6.93, 10.45, 8.38, 11.84, 12.48, 11.44, 9.92, 9.24, 14.54, 9.19, 12.29, 12.18, 13.56, 9.3, 9.48), 35));

Minimum lower bound= ___when=5%

Maximum upper bound= __when=5%