DM 'LOG;CLEAR;OUT;CLEAR;';
OPTIONS NODATE NONUMBER LS=64 PS=66;

*************************************;
*** Individual Measurements Chart ***;
*** With Tests for Special Causes ***;
*************************************;

 data engines;
    input id weight @@;
    label weight = 'Engine Weight in lbs'
          id     = 'Engine ID Number';
    cards;
 1711 1270   1712 1258   1713 1248   1714 1260
 1715 1263   1716 1260   1717 1259   1718 1240
 1719 1260   1720 1246   1721 1238   1722 1253
 1723 1249   1724 1245   1725 1251   1726 1252
 1727 1249   1728 1274   1729 1258   1730 1268
 1731 1248   1732 1295   1733 1243   1734 1253
 1735 1258
 ;

 title 'MOVING RANGE CHART WITH TESTS';

 symbol value=dot width=3 ;

 proc shewhart data=engines graphics;
    irchart weight*id /
        tests    = 1 to 8
        test2run = 7
        tabletests
        zonelabels
        zone2labels
        ltests   = 2
        vminor=1
        hminor=1
        waxis=3
        wlimits=3
        split = '/';
    LABEL weight = 'ENGINE WEIGHT/MOVING RANGE';

 run;