Clipping Extreme Points

/****************************************************************/
/*          S A S   S A M P L E   L I B R A R Y                 */
/*                                                              */
/*    NAME: SHWCLIP                                             */
/*   TITLE: Clipping Extreme Points                             */
/* PRODUCT: QC                                                  */
/*  SYSTEM: ALL                                                 */
/*    KEYS: Shewhart Charts,                                    */
/*   PROCS: SHEWHART                                            */
/*    DATA:                                                     */
/*                                                              */
/*     REF: SAS/QC Software:  Usage and Reference, Version 6,   */
/*          First Edition, Volume 1 and Volume 2                */
/*                                                              */
/****************************************************************/

data newtubes;
   label Diameter='Diameter in mm';
   do batch = 1 to 15;
      do  i = 1 to 5;
         input Diameter @@;
         output;
      end;
   end;
   datalines;
69.13  69.83  70.76  69.13  70.81
85.06  82.82  84.79  84.89  86.53
67.67  70.37  68.80  70.65  68.20
71.71  70.46  71.43  69.53  69.28
71.04  71.04  70.29  70.51  71.29
69.01  68.87  69.87  70.05  69.85
50.72  50.49  49.78  50.49  49.69
69.28  71.80  69.80  70.99  70.50
70.76  69.19  70.51  70.59  70.40
70.16  70.07  71.52  70.72  70.31
68.67  70.54  69.50  69.79  70.76
68.78  68.55  69.72  69.62  71.53
70.61  70.75  70.90  71.01  71.53
74.62  56.95  72.29  82.41  57.64
70.54  69.82  70.71  71.05  69.24
;

ods graphics off;
symbol value=plus h=3.0 pct;
title  'Control Chart for New Copper Tubes' ;
proc shewhart data=newtubes;
   xrchart Diameter*batch /
      mu0    = 70
      sigma0 = 0.75;
run;

title  'Control Chart for New Copper Tubes' ;
proc shewhart data=newtubes;
   xrchart Diameter*batch /
      mu0        = 70
      sigma0     = 0.75
      clipfactor = 1.5;
run;

symbol value=plus;
title  'Control Chart for New Copper Tubes' ;
proc shewhart data=newtubes;
   xrchart Diameter*batch /
      mu0         = 70
      sigma0      = 0.75
      clipfactor  = 1.5
      clipsymbol  = dot
      cliplegpos  = top
      cliplegend  = '# Clipped Points'
      clipsubchar = '#';
run;