data rats;
set Long.Rats01;
run;
data rats2;
set Long.Rats01;
time2=1+(time-45)/10;
time2=log(time2);
run;
proc mixed data=rats2 ;
title 'random intercept and random slope';
title2 	'Average evolution - common intercept and group specific slope';
class group subject;
model response= time2*group / s/* produce solution for fixed effects*/;
random intercept time2 / type=un subject=subject g v vcorr  ;
repeated / type= vc  subject=subject r  rcorr;
run;