Introduction to Acceptance Sampling and SPC with R