%newsas(resimr);
title 'Resistant line for IMR data';
%include data(nations);
*include macros(resline);
*options nocenter;
%resline(data=nations, x=income, y=imr, id=nation);
 
*-- Try a log-log fit;
title 'IMR data: log-log fit';
data nations;
   set nations;
   logimr = log10(imr);
   loginc = log10(income);
   label logimr = 'log Infant Mortality'
         loginc = 'log Income';
run;

%resline(data=nations, x=loginc, y=logimr, id=nation);