dm 'log;clear;out;clear;';

OPTIONS NODATE NONUMBER LS=76 ps=54;

GOPTIONS VSIZE=6.5 HSIZE=6.5IN ;

data in;
     do day   = 1 to 20;
     do shift = 1 to 2 ;
     do rep   = 1 to 2 ;
        input oper moisture thicknss color speed rh @@;
        output;
     end; end; end;
cards;
1 1.01  8.4 62.1 69 56   2 0.99 13.2 71.8 66 54   3 0.93 11.6 70.0 70 52   
4 1.11 15.1 81.1 75 62   2 0.96 12.6 72.1 63 60   1 0.98 15.7 79.9 76 55
4 0.98 12.8 71.1 68 60   4 0.99 13.9 73.8 74 53   2 1.25  8.9 62.5 72 64   
2 1.26 14.5 74.8 74 70   4 1.28 13.6 74.7 73 55   3 0.94 12.8 71.5 70 58
1 1.04 11.7 67.7 70 63   2 1.18 10.0 63.4 71 57   4 1.00 12.7 72.4 68 62
3 0.91 15.1 76.6 74 57   1 1.08 14.3 74.3 74 58   1 0.98 10.2 66.1 64 66
4 1.16 13.9 63.8 69 66   4 0.86 14.5 63.4 73 58   2 1.04 11.5 62.1 65 69
1 1.05 12.7 61.2 66 61   3 0.75 13.4 72.2 69 57   3 1.02 12.3 70.5 76 58
1 1.02 13.7 73.8 71 57   2 1.35 12.1 69.4 75 64   3 0.94 13.1 71.0 75 61
4 1.00 12.8 73.4 70 62   2 1.30 12.7 72.0 62 63   2 1.12 13.8 75.5 69 61
4 0.83 10.0 64.5 84 61   3 1.12 13.6 72.9 85 59   1 0.85 10.5 67.9 67 63
1 1.10 10.4 66.8 76 61   4 1.12 10.8 67.7 73 62   3 0.97 14.7 77.1 71 62
2 1.13  7.3 62.0 73 55   1 0.96 10.7 67.2 72 65   3 0.95  8.3 62.1 74 59
4 0.95 11.5 68.8 81 58   1 1.04 13.2 69.4 80 55   2 1.19 10.7 69.3 70 62
3 0.93 10.8 68.1 72 59   3 1.14 10.7 68.3 72 65   1 1.04 10.8 67.2 73 73
2 1.29 10.4 67.8 76 62   4 1.11  9.8 63.0 75 63   4 1.12 11.3 70.9 76 62
2 1.17 14.4 73.8 78 61   2 1.17  9.7 66.7 73 66   4 1.13  9.8 65.5 78 63
3 0.98  9.9 64.1 74 64   2 1.29 10.9 67.9 75 66   2 1.32 12.3 70.6 75 67
3 0.94 12.4 69.0 73 63   3 1.01 12.5 69.7 73 64   2 1.33  9.1 63.2 78 59
2 1.17  8.5 63.2 73 66   4 0.88 10.8 67.0 74 58   3 1.15 11.2 68.4 78 59
2 1.09 11.8 69.2 72 60   2 1.24 11.6 67.8 77 58   4 1.03  8.3 62.9 82 56
4 0.90 10.7 66.3 75 56   2 1.18  8.8 63.3 73 70   1 0.97 14.2 69.1 68 55
3 1.02 14.5 72.4 76 64   4 1.21 12.0 70.7 80 60   1 1.00  8.0 62.0 71 65
1 1.01 14.8 77.0 81 61   4 0.94  9.7 65.1 71 61   4 1.00  7.1 61.9 72 59
1 1.08 10.1 65.5 69 63   2 1.10 10.2 66.6 76 58   4 0.95 10.2 68.9 72 65
3 1.10 11.1 68.4 74 57   1 0.90 10.9 66.5 73 65   2 1.16 10.9 66.9 67 73
4 1.08 10.6 67.3 73 65   3 0.88 12.0 69.5 75 58
;

data in; set in; sample = _n_;

/* proc print data=in; id sample; */

/* proc sort data=in; by shift; */
/* proc sort data=in; by oper;  */

/*
proc plot data=in vpercent=75;
     plot moisture*speed = oper ;
     plot moisture*rh    = oper ;
*/
run;