Select Code to Download

# want $constant, $slope, and $error coefficients for regression equat
+ion fitting this data, where the distribution line is approximated by
# Y = $constant + $slope * x + $error
...
# strongly correlated distrubions
# See http://www.tufts.edu/~gdallal/slr.htm
#dummy for now -- what's the best way to do this?

$ perl trend.t
slow_increase distribution, constant 0, slope 0, error 0
...
1..3
# Looks like you failed 3 tests of 3.
$

#!/usr/bin/perl
use strict;
...
  my $distribution = shift or die "no distribution";
  {constant => 0, slope => 0, error => 0}
}