* FairCoin1 Example;
* Perform a chi-squared test for whether the 
  probability of obtaining a head equals
  the probability of obtaining a tail;  

options linesize=70 nodate pageno=1;
data flips;
   input flip @@;
   datalines;
0 0 1 0 0 1 0 1 0 1 1 0 1 0 1 1 0 1 0 0 1 0 0 1 1 
1 0 0 0 1 0 1 0 0 1 0 1 1 0 0 0 0 1 0 1 0 0 0 1 0
;

proc means n sum;

proc freq;
   table flip / chisq;
  
run;
quit;