OPTIONS LS=72 PS=54 NODATE NONUMBER;

*** DESIGNING A CUSUM: METHOD 1, EXAMPLE 1;
DATA csmarl;
DO h = 4 TO 5 BY .1;
   arl2 = CUSUMARL('twosided',0,h,.5);
   arl1 = CUSUMARL('onesided',0,h,.5); OUTPUT;
END;
/*
DATA csmarl;
DO h = 4.5 TO 4.6 BY .01;
   arl2 = CUSUMARL('twosided',0,h,.5);
   arl1 = CUSUMARL('onesided',0,h,.5); OUTPUT;
END;
*/
PROC PRINT DATA=csmarl;
RUN;

*** DESIGNING A CUSUM: METHOD 1, EXAMPLE 2;
DATA csmarl;
DO h = 6 TO 8 BY .1;
   arl2 = CUSUMARL('twosided',0,h,.25);
   arl1 = CUSUMARL('onesided',0,h,.25); OUTPUT;
END;
/*
DATA csmarl;
DO h = 6.8 TO 6.9 BY .01;
   arl2 = CUSUMARL('twosided',0,h,.25);
   arl1 = CUSUMARL('onesided',0,h,.25); OUTPUT;
END;
*/
PROC PRINT DATA=csmarl;
RUN;