#!/usr/bin/perl -w

use strict;
require ('/opt/eHealth/web/aview/perl/site/lib/regression.pm');

open (TEST,">testing.txt");
my ($mean_x,$mean_y,$slope,$y_intercept);

my %raw_data = (
	1	=>	100,
	2	=>	160,
	2.5	=>	182,
	3	=>	225
	);


my $regr = regression->new(\%raw_data);

$mean_x = $regr->get_mean_x;
#$mean_y = $regr->get_mean_y;
#$slope = $regr->get_slope;
#$y_intercept = $regr->get_slope;

print TEST "Mean_x: $mean_x\tMean_y: $mean_y\tSlope: $slope\t: y intercept: $y_intercept\n";

close (TEST);