options nodate pagesize=54 linesize=80;

/* Read in the input file   */

data ex0307;
* infile '../../../data/biostat/ex0307.dat';
infile 'C:\biostat\data\ex0307.dat';
input subject src irc;
src_irc = src-irc;
run;

/* Obtain Wilcoxon Signed rank test and paired t test, where src_irc is the difference in half-life
under the 2 formulations (sustained release - immediate release) */
/* The M statistic for the Signed Rak test is (T+)-average(T+,T-)  */

proc univariate;
var src_irc;
run;


quit;