options ls=75 nodate;

data one; 
   input subject $ @;
   do week = 1 to 2;
      input hec_drop @;    *hand-eye coordination ;
      output;
   end;
cards;
DJF -3 -5
VF  0  0
AC  2  4
AT  3  1
BQ  4  3
JM  2  1
HT  4  5
LN  8  7
run;

proc sort;  by subject; run;

proc transpose data=one out=two prefix=week;
   by subject;
   *label week;
   var hec_drop;
run;

proc print;run;

symbol value=dot;

proc gplot;   
  title "Intrasubject correlation?";
  plot week2*week1=subject;
run;


*proc mixed method=type3 cl;
/*
proc mixed cl;
   class subject;
   model hec_drop=;
   random subject;
   estimate "mean" intercept 1/cl;
run;
*/
proc mixed data=one;
   class subject;
   model hec_drop=;
   random subject/sub=name v vcorr;
   *repeated/subject= name rcorr type=cs;
run;