An experiment was conducted to determine the effectiveness of a method designed to remove oil wastes found in soil. Three contaminated soil samples were treated. After 95 days, the percentage of contamination removed from each soil sample was measured, with a mean of 49.3 percent and a standard deviation of 1.5 percent. Estimate the mean percentage of contamination removed at a 98 percent confidence level.

Asample of 200 rom computer chips was selected on each of 30 consecutive days, and the number of nonconforming chips on each day was as follows: the data has been given so that it can be copied into r as a vector. non.conforming = c(10, 15, 21, 19, 34, 16, 5, 24, 8, 21, 32, 14, 14, 19, 18, 20, 12, 23, 10, 19, 20, 18, 13, 26, 33, 14, 12, 21, 12, 27) #construct a p chart by using the following code. you will need to enter your values for pbar, lcl and ucl. pbar = lcl = ucl = plot(non.conforming/200, ylim = c(0,.5)) abline(h = pbar, lty = 2) abline(h = lcl, lty = 3) abline(h = ucl, lty = 3)