%
% This data from a genetic experiment were reported by Fisher (2, section
% 17). Also the date were used in the original Wilcoxon 1945 paper
% as an illustration. The experimental figures were the
% differences in height between cross- and self-
% fertilized corn plants of the same pair. There
% were 15 such differences as follows: 
% 6, 8, 14, 16, 23, 
% 24, 28, 29, 41, -48, 
% 49, 56, 60, -67, 75. 
% If we substitute rank numbers for these differences,
% we arrive at the series 1, 2, 3, 4, 5, 6, 7, 8,
% 9, -10, 11, 12, 13, -14, 15. The sum of the
% negative ranks numbers is -24. 

pvalue = wsirtcdf(24, 15)

%pvalue = 0.0206

T= 15*16/2 - 24  %96

pvalue = 1-wsirtcdf(T-1,15)  %need T-1 because of integer nature of T
                                               %T is included in the p-value calculation 
%pvalue = 0.0206