%include 'K:\fsr_logistic.txt';
options nodate nonumber ps=2000;
data lucency;
infile 'K:\lucency.data.txt' firstobs=2;
  input lucency blade_size  tt_area  tt_width age wt_kg pin unibi;
 rwidth = 1.0/tt_width;
 rarea  = 1.0/tt_area;
%fsr_logistic(dataset=lucency,model=blade_size|rarea|rwidth|age|wt_kg|pin|unibi @q,gamma=0.05,y=lucency,method=1);