options ls=80;
data;
input color $ o;
p=.25;
logp=log(p/(1-p));
g=1;
cards; 
green 18 
yellow 38 
run;
Title 'Chi-Square';
proc freq;
    weight o; 
    table color/testp=(25 75);
    run;
Title 'WLS';
proc catmod;
    weight o;
    model color=;
    response + -.25 * 1 0;
run;
Title 'LRT';
proc logistic;
    freq o;
    model color=g /offset=logp noint;
run;