OPTIONS NODATE NONUMBER LS=80 PS=60;

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

 data trucks;
    input truckid $ defects @@;
    cards;
 B1  12   B2   4   B3   4   B4   3   B5   4
 D1   2   D2   3   D3   3   D4   2   D9   4
 M2   9   M6  13   L3   5   L4   4   L7   6
 Z1  15   Z2   8   Z3   9   Z7   6   Z9   8
 ;

 title1 'c Chart for Paint Defects in New Trucks (c unknown)';

 symbol v=dot width=3;

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

 run;