package regression;
use strict;

sub new
{
	my ($class) = @_;
	
	bless
	{
		'raw_data'	=> 	$_[1],
		'mean_x'	=>	0,
		'mean_y'	=>	0,
		'slope'		=>	0,
		'y_intercept'	=>	0
	}, $class;
}

sub get_mean_x
{
	$raw_dataPtr = $_[0]{'raw_data'};
	my $counter = 1;
	my $x_total = 0;
	
	print "raw_datePtr: $raw_datePtr\n";
	
	foreach $x (keys %$raw_dataPtr)
	{
		++$counter;
		$x_total += $x;
	}
	my $mean_x = ($x_total/$counter);
	
	$self->{'mean_x'} = $mean_x;
	
	return ($self->{'mean_x'});
}