Acceptance Sampling Random sampling from a large lot of manufactured items yields a number of defective items X with an approximate binomial distribution with p being the true proportion of defectives in the lot. A sampling plan consists of specifying the number, n, of items to be sampled and an acceptance number aa. After n items are inspected, the lot is accepted if X sa and is rejected if X>a. a. For n=5 and a=0 calculate the probability of accepting the lot for values of p equal to 0, 0.1, 0.3, 0.5 and 0.9 and 1 Write the six acceptance probabilities, separated by commas. Then write a brief explanation to support the calculation. b. Graph the probability of lot acceptance as a function of p. This is called an operating characteristic curve. They key is to store your lists of ps and your list of probabilities as vectors in R, and then to use these as the X and Y axes in a geom_line) plot. The code below should get you started. ps <-c() #Fill in the values of p, separated by commas probs <-c() #Fill in the acceptance probabilities, separated by commas ggplot (data=NULL, aes(x=ps, y=probs)) + geom_line() probs ps C. A quality control engineer is considering two different lot acceptance sampling plans: Plan 1: n=5, a=1 Plan 2: n=100, a=20. Construct operating characteristic curves for both sampling plans. You can make separate plots. Hint: use the normal approximation to a binomial to do calculations for the second plan d. If you were a seller producing lots with proportions of defectives between 0 and 10%, which plan would you prefer? Plan 1 or plan 2? Why? Write answer here then justify e. If you were a buyer wishing high protection against accepting lots with proportion of defectives over 30%, which plan would you prefer? Plan 1 or plan 2? Why? Write answer here and then justify