%newsas(spines);
title 'Resistant line for Spines data';
options ls=78;
data spines;
   input age distance;
   list;
datalines;
     2       20
     3       18
     4       22
     4       25
     5       17
     5       20
     5       20
     5       22
     6       21
     6       22
     7       20
     7       20
     7       22
     7       24
     8       18
     8       25
     8       33
     9       27
     9       31
    10       18
    10       24
    10       34
    11       25
    11       28
;
*-- Get and run the resistant line program;
*include macros(resline);
%resline(data=spines,
         x=age,
         y=distance);