Phase Chart for Process Design Changes

 /****************************************************************/
 /*          S A S   S A M P L E   L I B R A R Y                 */
 /*                                                              */
 /*    NAME: QCAD2                                               */
 /*   TITLE: Phase Chart for Process Design Changes              */
 /* PRODUCT: QC                                                  */
 /*  SYSTEM: ALL                                                 */
 /*    KEYS: Shewhart Charts,                                    */
 /*   PROCS: SHEWHART                                            */
 /*    DATA:                                                     */
 /*    MISC: This is the second of 3 examples showing different  */
 /*          phases in the evolution of a process: 1) analysis   */
 /*          of experimental results; 2) comparison of control   */
 /*          charts for the process before and after design      */
 /*          changes; 3) analysis of the capability of the       */
 /*          improved process. See also QCAD1 and QCAD3.         */
 /*                                                              */
 /*          If you are using a monochrome graphics device,      */
 /*          eliminate the CFRAMELAB and CBLOCKVAR options.      */
 /*                                                              */
 /****************************************************************/

data history;
   input cgrp $ 1-4 _phase_ $ 7-10  @13 sdate date7. grp $ 22-37
         strengthx 40-46 strengths 49-55 strengthn 58
         idlabl $ 61-68;
   format sdate date7.;
   cards;
blue  PRE   01APR89  Pre-Experiment    1.97944  0.14062  5
blue  PRE   02APR89  Pre-Experiment    2.48484  0.87684  5
blue  PRE   03APR89  Pre-Experiment    0.50000  2.00189  5  Blend 1
blue  PRE   04APR89  Pre-Experiment    3.17709  0.47945  5
blue  PRE   05APR89  Pre-Experiment    2.92237  1.45525  5
blue  PRE   06APR89  Pre-Experiment    2.27755  2.83700  5  Method A
blue  PRE   07APR89  Pre-Experiment    4.30000  0.64659  5
blue  PRE   08APR89  Pre-Experiment    1.52258  0.09606  5
blue  PRE   09APR89  Pre-Experiment    2.80568  1.81268  5
blue  PRE   10APR89  Pre-Experiment    2.83434  2.50900  5
red   POST  11APR89  Blend 2/Method B  2.57801  0.10846  5
red   POST  12APR89  Blend 2/Method B  2.88020  0.69241  5
red   POST  13APR89  Blend 2/Method B  2.91718  1.20157  5
red   POST  14APR89  Blend 2/Method B  3.37730  0.29203  5
red   POST  15APR89  Blend 2/Method B  3.13448  0.90590  5
red   POST  16APR89  Blend 2/Method B  2.48655  1.48528  5
red   POST  17APR89  Blend 2/Method B  2.60420  0.50914  5
red   POST  18APR89  Blend 2/Method B  2.19494  0.08877  5
red   POST  19APR89  Blend 2/Method B  3.00887  1.10697  5
red   POST  20APR89  Blend 2/Method B  2.87061  1.58371  5
red   POST  21APR89  Blend 2/Method B  2.30979  0.80874  5
red   POST  22APR89  Blend 2/Method B  2.71150  1.01333  5
red   POST  23APR89  Blend 2/Method B  3.05547  0.83832  5
red   POST  24APR89  Blend 2/Method B  3.12099  1.05783  5
red   POST  25APR89  Blend 2/Method B  2.86007  0.59240  5
red   POST  26APR89  Blend 2/Method B  2.63251  0.80212  5
red   POST  27APR89  Blend 2/Method B  2.52609  0.43571  5
red   POST  28APR89  Blend 2/Method B  2.61211  0.93809  5
red   POST  29APR89  Blend 2/Method B  2.68829  0.56397  5
;

data limits;
     input _index_ $  _lclx_  _mean_  _uclx_  _lcls_  _s_  _ucls_
           _stddev_;
     _sigmas_=3;
     _limitn_=5;
     _type_='ESTIMATE';
     _var_='STRENGTH';
     _subgrp_='SDATE';
     cards;
PRE  0.64293   2.47782   4.31272      0     1.28557   2.68556    1.36765
POST 1.63812   2.76680   3.89548      0     0.79078   1.65193    0.84127
;

 /*--------------------------------------------------------*/
 /* xschart below shows a reduction of 38% in the width of */
 /* the control limits                                     */
 /*--------------------------------------------------------*/
symbol1 v=none  c=yellow;

proc shewhart history=history limits=limits;
   xschart strength * sdate  (grp) /readindex=('PRE' 'POST')
                                    readphases=('PRE' 'POST')
                                    cblockvar = cgrp
                                    readlimits phaseref stddevs
                                    outlabel = ( idlabl )
                                    outlabel2 = ( idlabl )
                                    split ='/'
                                    nohlabel
                                    voffset=2.5
                                    vaxis2 = 0 to 4
                                    cframe=gray
                                    cframelab=yellow
                                    nolegend
                                    blockpos=1
                                    novangle
    ;
   label strengthx = 'Avg Strength/Std Deviation';
   title f=qcfont1 'X' f=none ' and S Chart for Fiber Strength';
run;

goptions reset=all;