I have prove the identity

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)