******************************
* Program: systolic.sas :
* Author: Joshua M. Tebbs :
* Date: 30 October 2005 :
* Example 7.4 (notes) :
******************************
 
* To perform a matched pairs analysis, we can also use
* the univariate procedure;
 
options ps=60 ls=80 pageno=1 formdlim='_' nodate;
 
data systolic;
input before after;
diff = before - after;
cards;
120 128
124 131
130 131
118 127
140 132
128 125
140 141
135 137
126 118
130 132
126 129
127 135
;
 
proc print data=systolic;
title 'round trip times at kc airport';
run;
 
proc univariate mu0 = 0;
var diff;
title 'systolic blood pressure data';
run;