One Sample Proportion Test In R