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

*****************************************;
*** Individual / Moving Range Charts  ***;
*** With and Without Transformation   ***;
*****************************************;

 data liquid; infile 'imrtrans.dat';
    input sample viscos @@;
    logvis = log(viscos);

 symbol value=dot width=3 ;

 proc shewhart data=liquid graphics;
    irchart viscos*sample /
        ltmplot  = schematicid
        ltmargin = 8
        tests    = 1 to 8
        tests2   = 1
        tabletests
        zonelabels
        zone2labels
        ltests   = 2
        vminor=1
        hminor=1
        waxis=3
        wlimits=3
        split = '/';
    LABEL viscos = 'VISCOSITY/MOVING RANGE';
 title 'MOVING RANGE (UNTRANSFORMED DATA)';

 proc shewhart data=liquid graphics;
    irchart logvis*sample /
        ltmplot  = schematicid
        ltmargin = 8
        tests    = 1 to 8
        tests2   = 1
        tabletests
        zonelabels
        zone2labels
        ltests   = 2
        vminor=1
        hminor=1
        waxis=3
        wlimits=3
        split = '/';
    LABEL logvis = 'LOG(VISCOSITY)/MOVING RANGE';
 title 'MOVING RANGE (LOG TRANSFORMED DATA)';

 run;