options nodate nonumber ps=55 ls=76;

data homeval;
infile 'C:\hw4.dat';
input county $ 1-28
      region $ 30
	  dhomeval 35-41
	  dpop     45-51
	  dpci     55-61;
ranx=ranuni(seed);
run;

proc sort;
by region ranx;
run;

data homeval1;
set homeval;
by region;
retain ordreg;
if first.region then ordreg=0;
ordreg+1;
run;



data homeval1;
set homeval1;
if ordreg <= 10;
drop ordreg ranx;
run;

proc print;

proc glm;
class region;
model dhomeval = region dpci;
lsmeans region / pdiff;
run;

run;

quit;