data wdvis1;
set wdvis;
do month=0 to 4;
if month=0 then respose=wd0;
else if month=1 then response=wd1;
else if month=2 then response=wd2;
else if month=3 then response=wd3;
else if month=4 then response=wd4;
output;
end;
run;
PROC GLM DATA = WDVIS1;
CLASS TREATMNT CENTER PAT MONTH;
MODEL response = TREATMNT CENTER TREATMNT*CENTER pat(TREATMNT*CENTER) month month*TREATMNT month*CENTER month*TREATMNT*CENTER/ SS3;
random pat(TREATMNT*CENTER);
test H=TREATMNT CENTER TREATMNT*CENTER E=pat(TREATMNT*CENTER) ;
QUIT;
RUN;