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;