package Statistics::Table::t

require 5;
require Exporter;
$VERSION = 0.01;
@ISA = qw(Exporter DynaLoader);
@EXPORT = qw(@t);

# degrees of freedom vs. 50%, 70%, 90%, 95%, 99%
@t = [[],
      [1.00, 1.96, 6.31, 12.71, 63.66], # 1 degree of freedom
      [0.82, 1.39, 2.92, 4.30, 9.92],
      [0.76, 1.25, 2.35, 3.18, 5.84],   # 3 degrees of freedom
      [0.74, 1.19, 2.13, 2.78, 4.60],
      [0.73, 1.16, 2.02, 2.57, 4.02],   # 5 degrees of freedom
      [0.72, 1.13, 1.94, 2.45, 3.71],
      [0.71, 1.12, 1.90, 2.37, 3.50],   # 7 degrees of freedom
      [0.71, 1.11, 1.86, 2.31, 3.36],
      [0.70, 1.10, 1.83, 2.26, 3.25],   # 9 degrees of freedom
      [0.70, 1.09, 1.81, 2.23, 3.17], 
      [0.70, 1.09, 1.80, 2.20, 3.11],   # 11 degrees of freedom
      [0.70, 1.08, 1.78, 2.18, 3.06], 
      [0.69, 1.08, 1.77, 2.16, 3.01],   # 13 degrees of freedom
      [0.69, 1.08, 1.76, 2.14, 2.98], 
      [0.69, 1.07, 1.75, 2.13, 2.95],   # 15 degrees of freedom
      [0.69, 1.07, 1.75, 2.12, 2.92], 
      [0.69, 1.07, 1.74, 2.11, 2.90],   # 17 degrees of freedom
      [0.69, 1.07, 1.73, 2.10, 2.88],
      [0.69, 1.07, 1.73, 2.09, 2.86],   # 19 degrees of freedom
      [0.69, 1.06, 1.72, 2.09, 2.84]];

