*******************************************************;
*** Xbar, R, and S Charts with Varying Sample Sizes ***;
*******************************************************;
/*
FILENAME TEMP 'C:\COURSES\ST580\SAS\XRUNEQUA.PS';
GOPTIONS DEVICE=PS
HSIZE=5.5IN VSIZE=8IN;
GSFNAME=TEMP
GSFLEN=132
GSFMODE=APPEND;
*/
OPTIONS NODATE NONUMBER LS=72 PS=66;

 data wire (drop=i size);
    input day size @;
    informat day date7.;  format day date7.;
    do i=1 to size;
       input brstr @@;  output;
    end;
    cards;
 20JUN94 5 60.6 62.3 62.0 60.4 59.9
 21JUN94 5 61.9 62.1 60.6 58.9 65.3
 22JUN94 4 57.8 60.5 60.1 57.7
 23JUN94 5 56.8 62.5 60.1 62.9 58.9
 24JUN94 5 63.0 60.7 57.2 61.0 53.5
 25JUN94 7 58.7 60.1 59.7 60.1 59.1 57.3 60.9
 26JUN94 5 59.3 61.7 59.1 58.1 60.3
 27JUN94 5 61.3 58.5 57.8 61.0 58.6
 28JUN94 6 59.5 58.3 57.5 59.4 61.5 59.6
 29JUN94 5 61.7 60.7 57.2 56.5 61.5
 30JUN94 3 63.9 61.6 60.9
 01JUL94 5 58.7 61.4 62.4 57.3 60.5
 02JUL94 5 56.8 58.5 55.7 63.0 62.7
 03JUL94 5 62.1 60.6 62.1 58.7 58.3
 04JUL94 5 59.1 60.4 60.4 59.0 64.1
 05JUL94 5 59.9 58.8 59.2 63.0 64.9
 06JUL94 6 58.8 62.4 59.4 57.1 61.2 58.6
 07JUL94 5 60.3 58.7 60.5 58.6 56.2
 08JUL94 5 59.2 59.8 59.7 59.3 60.0
 09JUL94 5 62.3 56.0 57.0 61.8 58.8
 10JUL94 4 60.5 62.0 61.4 57.7
 11JUL94 4 59.3 62.4 60.4 60.0
 12JUL94 5 62.4 61.3 60.5 57.7 60.2
 13JUL94 5 61.2 55.5 60.2 60.4 62.4
 14JUL94 5 59.0 66.1 57.7 58.5 58.9
 ;

 symbol v=dot width=3;

 proc shewhart data=wire graphics;
    xrchart brstr*day / npanelpos=25
                        tabletest alln
                        hminor=1 vminor=3
                        split = '/';
    LABEL brstr = 'AVERAGE BREAKING STRENGTH/RANGE';
 TITLE 'XBAR/R CHARTS -- UNEQUAL SAMPLE SIZES';


 proc shewhart data=wire graphics;
    xschart brstr*day / npanelpos=25
                        tabletest alln
                        hminor=1 vminor=3
                        split = '/';
    LABEL brstr = 'AVERAGE BREAKING STRENGTH/STD DEV';
 TITLE 'XBAR/S CHARTS -- UNEQUAL SAMPLE SIZES';
RUN;