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;