Data one;
Input x y;
Datalines;
0.22 246.84
3.22 289.95
;
Data fill; *Generates muptiple x values to facilitate graph of predicted values;
Do x=0.22 to 18.22 by 0.22; y=.; output; end;
Run;
Data one; set one fill; run;
Proc sort data=one; by x;
Proc nlin data=one; *straight broken-line;
Parameters L=300 U=-1 to -99 by 1 R=10;
z1=(x<R)*(R-x);
model y=L+U*(z1);
output out=ppp p=predy;
run;
proc print ppp;
proc gplot;
title2 '2 linear broken lines';
goptions hpos=35 vpos=35 ftext=swiss;
symbol1 v=dot c=black;
symbol2 i=join v=none c=black;
plot y*x predy*x/overlay;
run;