Estimating the Process Mean and Std Dev

 /****************************************************************/
 /*          S A S   S A M P L E   L I B R A R Y                 */
 /*                                                              */
 /*    NAME: MACUWMA5                                            */
 /*   TITLE: Estimating the Process Mean and Std Dev             */
 /* PRODUCT: QC                                                  */
 /*  SYSTEM: ALL                                                 */
 /*    KEYS: Moving Average Charts,                              */
 /*   PROCS: MACONTROL                                           */
 /*    DATA:                                                     */
 /*                                                              */
 /*     REF: SAS/QC Software:  Examples                          */
 /*    MISC: The history data set SUMMARY is created in the      */
 /*          program MACUWMA3 in the SAS/QC Sample Library.      */
 /*                                                              */
 /****************************************************************/

options ps=60 ls=80;

data summary;
   input day gapx gaps gapa gapn;
   informat day ddmmyy8.;
   format   day date5.;
   cards;
 1/4/86    14.948    0.20933    14.9480     5
 2/4/86    15.094    0.19857    15.0210     5
 3/4/86    15.040    0.16852    15.0273     5
 4/4/86    15.084    0.34551    15.0727     5
 7/4/86    14.842    0.28057    14.9887     5
 8/4/86    14.912    0.36894    14.9460     5
 9/4/86    15.072    0.31491    14.9420     5
10/4/86    15.070    0.22760    15.0180     5
11/4/86    15.018    0.30491    15.0533     5
14/4/86    14.988    0.38278    15.0253     5
15/4/86    14.930    0.42426      .         2
16/4/86    15.190    0.08485      .         2
17/4/86    15.246    0.10900    15.0840     5
18/4/86    15.044    0.23586    15.0927     5
21/4/86    14.840    0.13077    15.0433     5
22/4/86    14.980    0.14213    14.9547     5
23/4/86    15.156    0.23104    14.9920     5
24/4/86    15.158    0.13609    15.0980     5
25/4/86    15.016    0.21709    15.1100     5
28/4/86    15.212    0.25233    15.1287     5
29/4/86    15.122    0.37225    15.1167     5
30/4/86    14.846    0.25265    15.0600     5
;

title1 'Uniformly Weighted Moving Average Chart';
title2 'Using Estimated Mean and Std Deviation';
symbol1 v=dot w=2 c=yellow;

proc macontrol history=summary;
   machart gap*day /
      span      = 3
      smethod   = mvlue
      outindex  = 'April Data'
      outlimits = maparms2
      cneedles  = yellow
      cinfill   = red
      cframe    = gray
      hoffset   = 1.5
      novangle
      nohlabel;
   label gapx='Moving Avg of Gap';
run;

title1 'Listing of Data Set MAPARMS2';
title2 ;
proc print data=maparms2;
run;

goptions reset=all;