OPTIONS NODATE NONUMBER LS=80 PS=60;

******************************************************;
***               c-chart (c known)                ***;
*** The response is the number of paint defects    ***;
***            per truck (inspection unit)         ***;
******************************************************;

 data trucks;
    input truckid $ defects @@;
    cards;
 C1   5    C2   4    C3   4    C4   8
 C5   7    C6  12    C7   3    C8  11
 E4   8    E9   4    E7   9    E6  13
 A3   5    A4   4    A7   9    Q1  15
 Q2   8    Q3   9    Q9  10    Q4   8
 ;

 /* Specify Expected Number of Nonconformities using U0= Option */

 title  'c Chart for Paint Defects on New Trucks (given c=7)';

 symbol v=dot width=3;

 proc shewhart data=trucks graphics;
    cchart defects*truckid / u0      = 7
                             csymbol = c0
                             tests     = 1 to 8
                             ltests    = 20
                             zonelabels
                             tabletests
                             tablelegend;
    label truckid = 'Truck ID'
          defects  = 'Defects';

  run;