DM 'LOG; CLEAR; OUT; CLEAR;';
ODS PRINTER PDF file='C:\COURSES\ST528\CRSNOTES\imr1.pdf';
OPTIONS NODATE NONUMBER;

**************************************;
*** Individual Measurements Chart  ***;
*** (1) Mu And Sigma are unknown   ***;
*** (2) Mu And Sigma are specified ***;
**************************************;

 DATA engines;
    INPUT id weight @@;
    LABEL weight = 'Engine Weight in lbs'
          id     = 'Engine ID Number';
    LINES;
 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
 ;
SYMBOL VALUE=dot WIDTH=2;

/* IMR CHART FOR UNKNOWN MU AND SIGMA */

PROC SHEWHART DATA=engines;
     IRCHART weight*id /
        TESTS = 1 to 8  TEST2RUN = 7 
        LTESTS = 2  TABLETESTS 
        ZONES ZONES2 ZONELABELS ZONE2LABELS
        VMINOR=1 HMINOR=1
        SPLIT = '/';
    LABEL weight = 'ENGINE WEIGHT/MOVING RANGE';
TITLE 'IMR CHARTS (MU and SIGMA unknown)';
RUN;

/* IMR CHART WITH SPECIFIED VALUES OF MU AND SIGMA */

PROC SHEWHART DATA=engines;
     IRCHART weight*id /
        MU0 = 1250  SIGMA0 = 8
        XSYMBOL = MU0  RSYMBOL = R0      
        TESTS = 1 to 8  TEST2RUN = 7 
        LTESTS = 2  TABLETESTS 
        ZONES ZONES2 ZONELABELS ZONE2LABELS
        VMINOR=1 HMINOR=1
        SPLIT = '/';
    LABEL weight = 'ENGINE WEIGHT/MOVING RANGE';
TITLE 'IMR CHARTS (MU and SIGMA specified)';
RUN;