DM 'LOG;CLEAR;OUT;CLEAR;';
OPTIONS NODATE NONUMBER LS=64 PS=60;

DATA IN; INPUT SAMPLE X @@; CARDS;
     1 1 2 2 3 3 4 4

proc cusum data=in;
     xchart x*sample
     / mu0=1 h=4.6 k=0.5 delta=1.0
             nochart tablesummary;
TITLE 'EXAMPLE 1: Finding ARLs';

proc cusum data=in;
     xchart x*sample
     / mu0=1 h=6.8 k=0.25 delta=1.0
             nochart tablesummary;
TITLE 'EXAMPLE 2: Finding ARLs';
run;


DATA IN; INPUT SAMPLE X @@; CARDS;
     1 1 2 2 3 3 4 4

proc cusum data=in;
     xchart x*sample
     / mu0=1 h=3.9 k=0.5 delta=1.0
             nochart tablesummary;
TITLE 'EXAMPLE 3: Finding ARLs';

proc cusum data=in;
     xchart x*sample
     / mu0=1 h=2.75 k=0.75 delta=1.0
             nochart tablesummary;
TITLE 'EXAMPLE 4: Finding ARLs';
run;