%newsas(barttest);
title "Bartlett's test for homogeneity of variance";
data tires;
 input brand $ wear;
 datalines;
A 1.83
A 1.88
A 1.86
A 1.77
B 2.42
B 2.05
B 2.10
B 2.61
C 1.98
C 1.86
C 2.30
C 2.31
D 1.83
D 1.81
D 1.75
D 1.92
;
proc print data=tires;
*include macros(bartlet);
%BARTLET(TIRES,BRAND,WEAR);