var StdResChl; 
run; 
* (proc contents data=work.reschl; 
*(run; 
data four; 
set work.reschl; 
aRChl= abs(RChl); 
aStdResChl= abs(StdResChl); 
run; 
proc glm data=work.four; 
title2 "Levene's test for both types of residuals"; 
class year cbseg_2003; 
model aRChl aStdResChl=year cbseg_2003; 
*(means cbseg_2003/snk; 
*(lsmeans cbseg_2003; 
run; 
60 
