One-Sided Cusum Scheme
/****************************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: CUSONES */
/* TITLE: One-Sided Cusum Scheme */
/* PRODUCT: QC */
/* SYSTEM: ALL */
/* KEYS: Cusum Charts, */
/* PROCS: CUSUM */
/* DATA: */
/* */
/* REF: SAS/QC Software: Examples */
/* MISC: */
/* */
/****************************************************************/
options ls=120 ps=50 nodate;
data summary;
input hour weightx weights weightc weightn;
cards;
1 8.09375 0.059640 -0.25 4
2 8.09250 0.090220 -0.55 4
3 8.10100 0.076346 -0.51 4
4 8.11975 0.025552 0.28 4
5 8.10125 0.026500 0.33 4
6 8.08000 0.075617 -0.47 4
7 8.11450 0.037242 0.11 4
8 8.08300 0.059290 -0.57 4
9 8.06175 0.005737 -2.10 4
10 8.10225 0.046522 -2.01 4
11 8.10650 0.040542 -1.75 4
12 8.09925 0.056103 -1.78 4
13 8.15325 0.023977 0.35 4
14 8.12125 0.017173 1.20 4
15 8.14950 0.071248 3.18 4
;
title 'One-Sided Cusum Chart for Data in SUMMARY';
proc cusum history=summary lineprinter;
xchart weight*hour='*' /
scheme=onesided
mu0=8.10
sigma0=0.050
delta=1
h=2.2
tablecomp;
label weightx='Cumulative Sum';
run;
title;