X-bar Chart from Subgroup Summary Data

 /****************************************************************/
 /*          S A S   S A M P L E   L I B R A R Y                 */
 /*                                                              */
 /*    NAME: SHWMEAN                                             */
 /*   TITLE: X-bar Chart from Subgroup Summary Data              */
 /* PRODUCT: QC                                                  */
 /*  SYSTEM: ALL                                                 */
 /*    KEYS: Shewhart Charts, Mean Charts, X-bar Charts,         */
 /*   PROCS: SHEWHART                                            */
 /*    DATA:                                                     */
 /*                                                              */
 /*     REF: SAS/QC Software:  Examples                          */
 /*    MISC:                                                     */
 /*                                                              */
 /****************************************************************/

options ps=50 ls=100 nodate;

data parts;
   input sample partgapx partgapr;
   partgapn=5;
   label partgapx='Mean of Gap Width'
         sample  ='Sample Index';
   cards;
 1  270  35
 2  258  25
 3  248  24
 4  260  39
 5  273  29
 6  260  21
 7  259  37
 8  248  37
 9  260  28
10  255  19
11  268  36
12  253  36
13  273  29
14  275  22
15  257  24
16  269  41
17  249  36
18  264  31
19  258  25
20  248  36
21  248  30
;

title1 '_                    ';
title2 'X Chart for Gap Width';

proc shewhart history=parts lineprinter;
   xchart partgap*sample='*';
run;

title;