r program to look at post-stratification based estimate of a sample proportion