EWMA Chart Superimposed w/ Subgroup Means

 /****************************************************************/
 /*          S A S   S A M P L E   L I B R A R Y                 */
 /*                                                              */
 /*    NAME: MACEWMA3                                            */
 /*   TITLE: EWMA Chart Superimposed w/ Subgroup Means           */
 /* PRODUCT: QC                                                  */
 /*  SYSTEM: ALL                                                 */
 /*    KEYS: Moving Average Charts, EWMA Charts,                 */
 /*   PROCS: MACONTROL                                           */
 /*    DATA:                                                     */
 /*                                                              */
 /*     REF: SAS/QC Software:  Examples                          */
 /*    MISC: Subgroup means superimposed using the meanchar=     */
 /*          and meansymbol= options                             */
 /*                                                              */
 /****************************************************************/

options nodate nostimer nonumber source2 ls=76 ps=80;

data clips3;
   input day @ ;
   do i=1 to 5;
      input gap @ ;
      output;
      end;
   drop i;
   cards;
 1  14.76  14.82  14.88  14.83  15.23
 2  14.95  14.91  15.09  14.99  15.13
 3  14.50  15.05  15.09  14.72  14.97
 4  14.91  14.87  15.46  15.01  14.99
 5  14.73  15.36  14.67  14.91  15.25
 6  15.09  15.19  15.07  15.30  14.98
 7  15.34  15.39  14.82  15.32  15.23
 8  14.80  14.94  15.15  14.69  14.93
 9  14.67  15.08  14.88  15.14  14.78
10  15.27  14.61  15.00  14.84  14.94
11  15.34  14.84  15.32  14.81  15.17
12  14.84  15.00  15.13  14.68  14.91
13  15.40  15.03  15.05  15.03  15.18
14  14.50  14.77  15.22  14.70  14.80
15  14.81  15.01  14.65  15.13  15.12
16  14.82  15.01  14.82  14.83  15.00
17  14.89  14.90  14.80  14.40  14.88
18  14.90  15.29  15.14  15.20  14.70
19  14.77  14.60  14.45  14.78  14.91
20  14.80  14.58  14.69  15.02  14.85
;

title 'Exponentially Weighted Moving Average Chart';

options ls=120 ps=50;

proc macontrol data=clips3 lineprinter;
   ewmachart gap*day='x' /
      meanchar = '*'         /* Identifies subgroup mean */
      mu0      = 15.0        /* Known mean               */
      sigma0   = 0.2         /* Known standard deviation */
      weight   = 0.5;        /* Weight parameter         */
run;

options ls=76 ps=80;

symbol1 v=dot h=.8;
proc macontrol data=clips3;
   ewmachart gap*day /
      cinfill    = yellow
      cframe     = gray
      meansymbol = square    /* Identifies subgroup mean */
      mu0        = 15.0      /* Known mean               */
      sigma0     = 0.2       /* Known standard deviation */
      weight     = 0.5       /* Weight parameter         */
      novangle;
run;

goptions reset=all;