options nodate nonumber ps=55 ls=80;

data crime90;
infile 'A:\crime1.dat';
input @1 crimind @11 fbipop @21 nosc1619 @31 colldeg @41 income
 @51 transfer @61 divintre @71 belowpov @81 femhhpov;
if fbipop ne 0;
if income ne 0;
sample=ranuni(seed);
run;

proc sort;
by sample;
run;

data crime90;
set crime90;
if _n_ <= 100;
run;




proc reg;
model crimind = fbipop nosc1619 colldeg income transfer 
  divintre belowpov femhhpov /
  selection=rsquare cp adjrsq;
run;


proc reg;
model crimind = fbipop nosc1619 colldeg income transfer 
  divintre belowpov femhhpov /
  selection=stepwise sle=.15 sls=.15;
run;


proc reg;
model crimind = fbipop nosc1619 colldeg income transfer 
  divintre belowpov femhhpov /
  selection=forward sle=.50;
run;


proc reg;
model crimind = fbipop nosc1619 colldeg income transfer 
  divintre belowpov femhhpov /
  selection=backward sls=.10;
run;
 quit;