%newsas(tukeyt);
%include macros(twoway) ;
Title 'Randomized block design, n=1: Tukey test for non-additivity ';
* Data from Winer, p.267. Rows & cols reordered;
data Drugs;
     input Subject $ Drug1-Drug4;
datalines;
SUBJ1  20  34  38  44
SUBJ2  16  28  30  34
SUBJ3  14  28  26  30
SUBJ4  18  20  24  30
SUBJ5  10  18  14  22
;
/*----------------------------------------------------------*
 | Call TWOWAY macro for Tukey 1df test for non-additivity. |
 | Note: the VAR= list must list each column variable. You  |
 | can't use DRUG1-DRUG4                                    |
 *----------------------------------------------------------*/
%twoway(data=DRUGS,
        var =DRUG1 DRUG2 DRUG3 DRUG4, id=SUBJECT);
 
/**-----------------------------------------------------**
 | For Proc GLM, the data must be strung out as separate |
 | observations on a single variable (Y, here).          |
 **-----------------------------------------------------**/
data ravel;
     set Drugs;
     Y= Drug1; Drug=1; output;
     Y= Drug2; Drug=2; output;
     Y= Drug3; Drug=3; output;
     Y= Drug4; Drug=4; output;
Proc GLM data=ravel;
     Class Subject Drug;
     Model Y = Subject Drug;
run;