DM 'LOG; CLEAR; OUT; CLEAR;';
* ODS PRINTER PDF file='C:\COURSES\ST528\SAS\CCHART1.PDF';
ODS LISTING ;
OPTIONS NODATE NONUMBER LS=76 PS=54;

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

DATA trucks;
   INPUT truckid $ defects @@;
LINES;
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)';

SYMBOL1 WIDTH=3 VALUE=DOT;

PROC SHEWHART DATA=trucks;
     CCHART defects*truckid='1' / u0 = 7  CSYMBOL = c0   
                            TESTS = 1 to 8  LTESTS = 20 
                            ALLLABEL=(truckid)
                            ZONELABELS TABLETESTS TABLELEGEND;
   LABEL truckid = 'Truck ID'
         defects  = 'Defects';
RUN;