data sbp;
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=sbp;
title 'sbp data from matched pairs experiment';
run;
proc means mean stderr;
var diff;
title 'mean and standard error of data differences';
run;
proc means t prt;
var diff;
title 'matched pairs test for sbp data';
run;