* Example for paired sample testing problem;
options pagesize=53 linesize=76;
data devtime;
  input team1 team2;
  diff=team1-team2;
  label team1='Development Time Team 1'
        team2='Development Time Team 2'
        diff='Difference in Development Time';
  cards;
     7.6   7.3
    10.2   9.1
     9.5   8.4
     1.3   1.5
     3.0   2.7
     6.3   5.8
     5.3   4.9
     6.2   5.3
     2.2   2.0
     4.8   4.2
    11.3  11.0
    12.1  11.0
     6.9   6.1
     7.6   6.7
     8.4   7.5
  run;
proc sort;
  by diff;
title 'Testing for Equal Population Mean Development Time (man weeks)';
proc print label;
  var diff team1 team2;
proc means n nmiss mean std stderr t prt maxdec=3;
  var diff;
proc univariate normal plot;
  var diff;
proc rank normal=blom out=new;
  var diff;
  ranks nscores;
proc plot;
  plot diff*nscores='*';
  label nscores='Normal Scores';
  run;