Create two_sample_prop.R