What would you do to increase your chance of getting experimental data that are closer to the predicted data from the Punnett square

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)