/* sas code for problem 2.149(a) */
/* Must run code to read in SAT scores data first */

data statesat2 (drop=diff);
set statesat;
data class(keep=all_vars flag);
set statesat2;

array v{*} _numeric_;
do i=1 to dim(v);
all_vars=v{i};
flag=vname(v{i});
output;
end;
run;

proc sort data=class;
by flag;
run;

proc boxplot data = class;
    plot all_vars * flag;
quit;