OPTIONS NODATE NONUMBER LS=80 PS=60;

****************************************************;
***                u-chart (u known)             ***;
*** The response is the number of fabric defects ***;
***                 per square meter             ***;
****************************************************;

 data fabrics1;
    input roll defects sqmeters @@;
 cards;
  1  7 30.0   2 11 27.6   3 15 30.4   4  6 34.8   5 11 26.0
  6 15 28.6   7  5 28.0   8 10 30.2   9  8 28.2  10  3 31.4
 11  3 30.3  12 14 27.8  13  3 27.0  14  9 30.0  15  7 32.1
 16  6 34.8  17  7 26.5  18  5 30.0  19 14 31.3  20 13 31.6
 21 11 29.4  22  6 28.6  23  6 27.5  24  9 32.6  25 11 31.7
 ;

 title 'u Chart for Fabric Defects per Square Meter (given u=.20)';

 symbol v=dot width=3;

 proc shewhart data=fabrics1 graphics;
    uchart defects*roll / subgroupn = sqmeters
                          u0 = 0.20
                          usymbol = u0
                          table;
    label roll = 'Roll of Fabric';
 run;