OPTION LS=76 NOCENTER;
DATA repair;INPUT car g1 g2;
dy=g1-g2;
CARDS;
1 17.6 17.3 
2 20.2 19.1 
3 19.5 18.4 
4 11.3 11.5 
5 13.0 12.7 
6 16.3 15.8 
7 15.3 14.9 
8 16.2 15.3 
9 12.2 12.0 
10 14.8 14.2 
11 21.3 21.0 
12 22.1 21.0 
13 16.9 16.1 
14 17.6 16.7 
15 18.4 17.5 
;
PROC PRINT;
TITLE 'Print all the repair data';

PROC MEANS N MEAN STD T PRT;VAR dy;
TITLE 'Testing g1=g2 vs g1 not= g2 by paired t-test';

DATA modify;SET repair;
garage=1;y=g1;output;
garage=2;y=g2;output;
PROC PRINT;
TITLE 'Print all the repair data after modification';

PROC TTEST;CLASS garage;VAR y;
TITLE 'Testing g1=g2 vs g1 not= g2 assuming unpaired';

PROC GLM DATA=modify;CLASS garage car;
MODEL y=garage car;
TITLE "What if we treat car as a block? - Same as paired t-test";