%newsas(tukeytst);
Title 'Response times for 3 types of sentences (n=1)';
data RT;
     input Subject $ Sent1-Sent3;
datalines;
SUBJ1  1.7 1.9 2.0
SUBJ2  4.4 4.5 5.7
SUBJ3  6.6 7.4 10.5
;
/*----------------------------------------------------------*
 | Call TWOWAY macro for Tukey 1df test for non-additivity. |
 | Note: the VAR= list must list each column variable. You  |
 | can't use SENT1-SENT3                                    |
 *----------------------------------------------------------*/
 
%include macros(twoway) ;
%twoway(data=RT, var =SENT1 SENT2 SENT3, id=SUBJECT);
 
/*-------------------------------------------------------*
 | For Proc GLM, the data must be strung out as separate |
 | observations on a single variable (Y, here).          |
 *-------------------------------------------------------*/
data ravel;
     set RT;
     Y= SENT1; SENT=1; output;
     Y= SENT2; SENT=2; output;
     Y= SENT3; SENT=3; output;
Proc GLM data=ravel;
     Class Subject SENT;
     Model Y = Subject SENT;