OPTIONS NODATE NONUMBER LS=64 PS=120;
/*
FILENAME TEMP 'C:/COURSES/ST580/SAS/XRCHART.PS';
GOPTIONS DEVICE=PS
GSFNAME=TEMP
GSFLEN=132
HSIZE=7.5IN VSIZE=10IN
GSFMODE=REPLACE;
*/
DATA IN; INFILE 'C:/COURSES/ST580/SAS/XRCHART.DAT';
         DO SAMPLE =1 TO 100;
         DO UNIT = 1 TO 4;
            INPUT RESPONSE @@; OUTPUT;
         END; END;

TITLE 'XBAR AND RANGE CHARTS (KNOWN MU AND SIGMA)';

SYMBOL V=DOT WIDTH=1;

PROC SHEWHART DATA=IN GRAPHICS;
     XRCHART RESPONSE*SAMPLE / NPANELPOS=100
                               ZONES ZONELABELS
                               MU0=100   XSYMBOL=MU0
                               SIGMA0=2  RSYMBOL=R0
                               TESTS  = 1 TO 8  LTESTS = 2
                               TESTS2 = 1
                               TABLETESTS  ALLN
                               SPLIT = '/';
     LABEL RESPONSE = 'AVERAGE RESPONSE/RANGE';

RUN;