Select Code to Download

package regression;
use strict;

...
    
    return ($self->{'mean_x'});
}

#!/usr/bin/perl -w

use strict;
...
print TEST "Mean_x: $mean_x\tMean_y: $mean_y\tSlope: $slope\t: y inter
+cept: $y_intercept\n";

close (TEST);