To reconstruct Figures 2 and 3.  Input the following data using the S source function:  data.ssc.  Then run each scripts: Figure2.ssc and Figure3.ssc.