/* Lesson 13-01 */
 /*    File Name = les1301.sas  02/01/18   */

options nocenter linesize=78 pagesize=30;
proc printto print = 'Kougi/les1301_Results.txt' new;

data pair;
  input x y @@;
  dif=y-x;
cards;
  5.1 4.7  6.2 6.1  6.8 7.2  7.4 7.3  3.9 3.6
  3.5 3.7  5.3 4.8  4.5 4.4  5.9 5.5  4.8 4.6
;

proc print data=pair;
run;

ods listing;
ods graphics off;
proc univariate data=pair plot;
  var dif;
run;