MATH 810 Inference for 1 and 2 Proportions in R