FILENAME goptions URL "http://192.38.117.59/~linearpredictors/datafiles/goptions.sas";
%include goptions;

FILENAME url URL "http://192.38.117.59/~linearpredictors/datafiles/readSurgery.sas";
%include url;

PROC GENMOD DATA=surgery descending;
  CLASS surgtype blocking longact;  
  model complication=surgtype longact age duration longact*tofratio
             / dist=binomial link=logit;
output out=fit p=yhat reschi=reschi;
run;

%begin_multilayout(1,2);

/* COLOR represents longact, 0:blue, 1:red */
PROC GPLOT DATA = fit GOUT=plots;
    PLOT reschi*(tofratio duration)=longact /
        HAXIS=AXIS1 VAXIS=AXIS2;
    AXIS1
        MINOR = NONE
        OFFSET = (5 pct)
       ;
    AXIS2
        MINOR = NONE
        LABEL = (A=90 R=0 'Pearson residual');
    SYMBOL1 VALUE = CIRCLE I=sm70s L=2 COLOR = blue;
    SYMBOL2 VALUE = CIRCLE I=sm70s L=1 COLOR = red;
RUN;

%end_multilayout(1,2);