/* White I list
The data were from White's e-mail.
Part of the argument that White made was that the general admission rate was 69% and
the rate on the I List was higher but it only lead to only additional 13 students being
admitted.
160 students on the I list
123 admitted
76.88% admitted from I list
69% of 160 = 110.... so 123 - 110 = 13 (i.e., number admitted from I list minus 69% is 13)
*/
/* Addmission via I-list & testing whether same rate as general */
options ls=75 nocenter nodate;
title1 'Large sample and exact binomial confidence intervals for I list probabiliy of admission';
data ilist;
input admit $ count;
datalines;
yes 123
no 37
run;
title1 'Binomial test of whether adimisson rate from I list is same as general admission';
title2 'Results are significant whether use asymptotic test or exact tests ';
title3 'I-list: H_o: Admission probability of I list)=.69 = proportion general admission';
proc freq order=data;
weight count;
tables admit / binomial(p=.69);
run;
/* Test 2: two-way table using approximate data (approimate data given in e-mail and
fairly consistent with what was reported in the newspaper and elsewhere */
title1 'Chi-square test using two-way table using approximate data (approimate data given in e-mail and ';
title2 'numbers fairly consistent with what was reported in the newspaper';
data iversusg;
input list $ admit $ count;
datalines;
Ilist yes 123
Ilist no 37
general yes 18000
general no 8000
run;
proc freq;
weight count;
tables list*admit / chisq ;
title 'List x admission';
run;