%newsas(resline2);
Title 'Fit Resistant line to XY data';
* data from Stoto & Emerson (1983) p150;
options ls=72;
data divorce;
   do year=1870 to 1960 by 5;
   input divorce @@;
   output;
   end;
datalines;
6.7  6.4  8.2  8.3  9.8  10.9  12.0  12.2  13.9 15.9  18.0  19.5
23.7 25.3 25.4 25.1 27.1 29.9  33.8
;
*include macros(resline);
%resline(data=divorce, x=year, y=divorce);