sub get_mean_x
{
    my $self = shift;

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